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“Sep-19 
! File dump program 


MODULE DUMPSMAIN ( 
IDENT=! ¥04=000" , 


MAA Redunese ters 
ADDRESSING_MODE (EXTERNAL=GENERAL 
NONE XTERNAL=LONG_RELAT IVE) 


Sssss 


DONA VES WO OONOULS Win — 


BEGIN 

1 

. 

} 

ROTI rrr irri rit iii titititivititiiitiiit. 


* 
'‘@ % 
'® COPYRIGHT (c) 1978, 1980, 1982, 1984 BY * 
'@ DIGITAL EQUIPMENT EORPORATION, MAYNARD, MASSACHUSETTS. * 
™ ALL RIGHTS RESERVED. * 
' e 
'® THIS SOFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND COPIED * 
'@ ONLY IN ACCORDANCE Wl TH H * 
'@ INCLUSION OF THE ABOVE COPYRIGHT NOTICE. THIS SOFTWARE OR ANY OTHER * 
'® COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
'® OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ea 
te 
8 
& 
oa 
& 
® 
* 
ve 
* 
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ie TRANSFERRED. 

iw THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
ie AND SHOULD NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 
is CORPORATION. 

ie DIGITAL ASSUMES NO RESPONSIBI 
is SOFTWARE ON EQUIPMENT WHICH I 
; 
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{ 


SSSSsSsssssssssssssssss 
at ot ot dt od ot OOOO 


attatatatotatotatotatatatatatotey 


LITY FOR THE USE OR RELIABILITY OF ITS 
S$ NOT SUPPLIED BY DIGITAL. 
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++ 
FACILITY: File dump utility 


ABSTRACT: 
This module contains the command processing and driver routines. 


ENVIRONMENT: 
VAX native, user mode. 


AUTHOR: Benn Schreiber, Stephen Zalewski CREATION DATE: 22-Jun-1981 
MODIFIED BY: 


v03-013 $Hz0002 Stephen H folousk t 12-Apr-1984 
Move all conflicting qualifier checking to DUMP.CLD. 


v03-012 8LS0258 Benn Schreiber 5-Jan-1984 
Clear fab$l_xab after opening the file. 


v03-011 $H20001 tephen H. Zalewski 28-Jun-1983 
Have DUMP open files shared. 


v03-010 MLJ0095 Martin L. Jack, 17-Aug-1982 18:26 
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, 


v03-001 MLJ0033 artin L. Jack, 23-Aug-1981 9:48 
Extensive an, 4 to Finish implementation. 


Sse 


So 


-Sep-1 VAX-11 BL iiss -32 v4.0-742 P 
ib-te sets 7 9: $¢: 55 DISKSVMSMASTER: CDUMP. SRCJOUMP.B32;1 — aS 
2 } Remove references to CLISEND_PARSE. 
ii v03-009 LMP0038 L. Mark Pilant 30-Jun-1982 13:55 
1! sorrect 8 a problem that lgenerated the BADSTART error message 
} } f the EOF block on a file was zero. 
64 1! v03-008 LMPOOS4 ark Pitan { 28-Jun-1982 9:36 
65 1! a bug inevedczes by LMPO036 that resulted in an access 
§ : viototton when doing wildcard dumps. 
68 1: v03-007 LMPOO30 L. Mark Pilan 15<jun-1982 10:35 
: Allow dumping of logical blocks on a Files-11 mounted disk. 
071 1: v03-006 MLJ0081 Martin L. Jack, 24-Feb-1982 17:35 
$076 ' Lengthen DUMP$GQ_TIME to avoid “overwriting EXIT_STATUS. 
007% 1 v03-005 MLJ0059 Martin L. Jack, 6-Nov-1981 14:13 
B20? : } Properly handle EFBLK of 0. 
6079 1 i v03-004 MLJ0056 Martin L. Jack, 18-Oct-1981 23:31 
ith ! Special case reading from terminals to allow *Z to function. 
0080 1 V03-003 MLJ0046 Martin L. Jack, 21-Sep-1981 8:27 
49 } H Allow for device name change between SPARSE ont OPEN. 
$088 1! V03-002 MLJ0045 Martin L. Jack, 10-Sep-1981 15:27 
Boge 1! Set SQ0 bit where afters riate. Allow record mode dump of 
Spee : network device. UMP/HEADER on tape. 
BS 1 
Z 
1! 
1! 
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ab 


3) aioe *SYSSLIBRARY: STARLET’; 
LIBRARY ‘SYSSLIBRARY:TPAMAC’; 
REQUIRE ‘SRCS$:DUMPRE'; 


FORWARD ROUTINE 
dump$handler, 
dump$start, 
dump$tparse, 
dump$store_num, 
dumpSopen_Tnput, 
dump$open_output, 
dump$read, 
dump$write: NOVALUE, 
dump$close_input: NOVALUE, 
dump$c ose_output: NOVALUE, 
dump$list_width: NOVALUE, 
dump$file_error: NOVALUE ; 


! Top-level condition handler 


! SE 
' Store numer is qualifier value 
! Open input file 

' Open uteut file 

' Read from input file 

' Write fo output file 

! Close input file 

! Close output file 

! Get Listing device width 

! Signal file-related error 


Bt 


MEAN OO OONA UNE WN ("OO NOUSE 


exten, ROUTINE 
cli 


get_value, ! Get qualifier value 
cliSpresent ! Test if qualifier present 
dump3b lank (ine, ! Write blank Line 
dump$dump_Tile, ! Dump the file 


! Output a message 

! Free virtual memory 

' Allocate virtual aoneey 

' Search for wild card files 
! Number of Lines on printer 
! Table-driven parser 

! Copy a string 


ib$tind_file, 
ibSip_lines, 
ib$Stparse, 
tr$copy_dx; 


RERPRLELR ELLER ERLE REPL OLE LES SS 


EXTERNAL LITERAL 
dump$_facility, 
dump$_badrange, 


etcnn 
dump$~endof tile, 
“novirmem, 
dump$_badstart; 


Ns YS 


GLOBA 

Pointer to input FAB 

Pointer to input NAM block 

nput RAB 

Output RAB 

Output FAB 

Output NAM block 

putput resu Seng string 
ptor for input RSA 

Descriptor for output RSA 

Output buffer 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
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1 
1 
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1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
1 
} 
' “odesc : BBLOCKEdsc$c-s_bin 
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dump$gl_outdesc pace tiisky 


dump$gl_channel, 
dunptgt-viath. 

gumpsat Otter + Ber ocet gscSe. s_binl, 
dump$gi_ Logs. 
dump$gl_start_qual, 
duapsol end qual, 
dump$gi_count_qual 
dump$gl_number_qual, 
dump$gl _ tr, 

dump$9l cur block. 

dump gt max -block 
dump$gl-file_efbik, 
duap$ot ope leh iolk. 

bret tb i's *VECTORC2): 


exit status : BBLOCK[4] INITIAL(ss$_normal), } 


tpa_Block : BBLOCK tpa$k_lengthd); 


me me me me me me et ee ee ee es ee eee ees 


e9-1984 9bse ge TI CSUMGAASTERSCDUME.SRe2oUMP.832;1 ° 


Descriptor for output buffer 
input channel 

Width of Listing 

Lines per page 

General Logs for input buffer 
Genera 

Value of sth RT quel {fier 
Value of 

Value of EOUN qualifier 
Value of NUMBER qualifier 
Local byte offset for NUMBER 
Current block number 


e blo 
Highest allocated block 
Current block/record number 
Time at beginning of dump 


Most severe error status 
! TPARSE block 


ae 


-Sep-1 VAX-11 BLi 
1$-Fep-1984 Pe See tH 
+4 173 1 Se 

: 173 1 ump $m tpa_start= fieldmask(dump$v_tpa_start), 

; \e 1 ane ~tpa_count= fieldmask (dump$v_tpa_count), 

; \o? : dump$m_tpa_end= fieldmask (dump$v_tpa_end); 

: 17 1 

3 i ' } TPARSE tables to parse /BLOCK and /RECORD qualifier values. 

: ist > SMT St STATE (blkrec_states, blkrec_keys); 

: 1 ¢ P 1 “C'START! +e dump$m_ toa. start -duap$qt flags), 

: i 4 i (: EOUNT 2 quae sR mips a- to St. 4 iste ee 

° eee u um ~!4aQgs)?); 

; 185 Pp 1 SSTATE(, me J ° ’ 

4 Pp 1 ("2") 

: 1 1 C's"); 

» F p 1 SSTATE (parse number 

; 189 P 1 (t a$ dec imal ,eos, dump$store_num), ! Decimal number 

; 190 1 ")); ! Base prefix 

3; «6191 p 1 SSTATE(, 

3 136 p 1 K'), ' Hex base designator 

; 19 b 1 ("O° oc tnum) ' Octal base designator 
3 «6194 1 ("D*.decnum) 5; ! Decimal base designator 
: «6195 p 1 SSTATE(, 

3 196 1 (tpa$_hex,eos,dump$store_num)); ! Introduced hex number 
; 19 we 1 SSTATE Cor tnun, 

3 Hb 1 pas *octal,eos,dump$store_ num)); ! Introduced octal number 
- ¥ P 1 SSTATE (decnun 

; 200 1 paS_decimal,,dump$store_num)); ! Introduced decimal number 
: 201 p 1 SSTATECe0s, 

3 4 ' (tpas_ eos, tpa$_exit)); ! End of string 

3 204 1 

; 205 : TPARSE table to parse /NUMBER qualifier. 

: oy > : SINIT ST STATE(number_states, number_keys); 

; 09 1 * ((parse_number) , tpa$_exit)); ! /NUMBER= 


v4. 
set 
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NE dump$handler(sigargs, mechargs)= 


s routine is a condition handler ested| ished by the main 
tine. It saves the most severe condition for the exit status. 


signame = sigargs(chf$l_sig_name] : BBLOCK; ! Name of signal 


IF NOT .signame If an error signal 
AND ((.signame(sts$v_severity] ! and severity is worse 
TRU .exit_status syeby, sever tty) 
OR .exit_sfatus(sts$v_séverity 


or no errors yet 
exit_status = .signame; ! then save it for exit 


' 
: 
: einpmecnerss REF BBLOCK; 
5 

5 f 

g 4 

: 

i 

5 


BAIN IINNINS  ae 
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RETURN ss$_resignal; Resignal to pet message 
END; er 


Of dump$hand 


- TITLE ervey 
-IDENT \Vv04-000\ 


-PSECT _LIBSKEYIS$,NOWRT, SHR, PIC,1 

00000 ; TPASKEYSTO 
| 
| 
| 


U. e 8 0 
54 52 41 54 53 00000 ; TPASKEYST 
U.4: eASCII = \START\ 3 
FF $0003 -BYT -1 3 
0006 ; TPASKEYSTO 0 


U. e 8 
44 4E 45 00006 ; TPASKEYST 
U.10: ASCII \ye\ : 


BO08R ; TPASKEYST0 


54 GE 5S GF 43. OOOOA SiPAgKEVst. . 
> ,ASCII \EOUNT\ ; 


F em *BYT 
FF eats ; TPASKEYFILL 
U.20: BYTE -1 ; 
-PSECT _LIBSSTATES,NOWRT, SHR, PIC,1 
00000 BLKREC_STATES:: 


: 0 
6100 00000 ; TPASTYPE 
gata 24832 ; 
00000000* 00002 ; TPASADDR 
: <<DUMPSGL_FLAGS-U.6>=4> ; 


U. ® ol 
10000000 00006 ; TPASMASK 


et 


Sep-1966 12:51:35 


LONG 
6101 O000A stbastvet ee 
00000000* 0000C ; TPASADDR 
U, 12:  .LONG 
20000000 00010 ; TPASMASK 
U.13:_ LONG 
6502 00014 ; TPASTYPE 
U.17: | WORD 
00000000* 00016 ; TPASADDR 
U. 18: LONG 
40000000 001A ; TPASMASK 
U.19; LONG 
003D O001E ; TPASTYPE 
0.21: WORD 
043A 00020 ; TPASTYPE 
0.22:  .WORD 
00022 PARSE_NUMBER: 
.BLKB 
91F3 00022 ; TPASTYPE 
0.23:  .WORD 
00000000v 00024 ; TPASACTION 
0.24: | .LONG 
0000* 00028 ; TPASTARGET 
0.26:  .WORD 
0425 002A ; TPASTYPE 
0.27: WORD 
0058 0002C ; TPASTYPE 
0.28:  .WORD 
104F OO02E ; TPASTYPE 
0.29: RD 
0000* 00030 STRASTARGET 
1444 00032 ; TASTYPE 
6.32: <WORD 
0000* 00034 ; TPASTARGET 
0.34: WORD 
95F5 00036 ; TPASTYPE 
U.35: WORD 
00000000v 00038 ; TPASACTION 
U.36: LONG 
0000* 0003C ; TPASTARGET 
U.37: WORD 
0003€ ime 
U : -BLKB 
95F4 OOO3E ; TPASTYPE 
.38: WORD 
00000000v 00040 ; i TpasacTiOn 
0000+ 00044 Y TPASTARGET 
U.40: - WORD 
eeeedl 4 Ha 
85F3 00046 ; TPASTYPE 
U.41: e WORD 
00000000v 00048 ; tpasaction 


+ 


DESKSUMGMASTERSCDUMD.¢ReIDUMP.832;1 29° cas 
268435456 3 
24833 3 
<<DUMPSGL_FLAGS-U.12>-4> 3 


536870912 

25858 
<<DUMPSGL_FLAGS-U.18>-4> 
1073741824 

61 

1082 

0 

-28173 
<<DUMPS$S TORE _NUM=U.24>=4> 
<<U.25°U. 26>-2> 

1061 

88 

4175 

<<U.30-U.31>-2> 

5188 

<<U.33-U.34>-2> 

-27147 
<<DUMPSS TORE _NUM-U.36>-4> 
<<U.25-U.37>=2> 

0 

-27148 
<<DUMPS$S TORE _NUM-U.39>-4> 
<<U.25-U.40>-2> 

0 

=31245 

<<DUMPSSTORE _NUM-U.42>-4> 


ora 


15F7 
FFFF 


1DF8 
0000+ 
FFFF 


0000+ 
0000+ 
0000+ 


00000001 


yb-Be0-}984 01:24) MARCH Blase sz va-00742, 


0004C ;E 


3. BLKB 

0004¢ ; ig stvpé 
0.43: .WORD 

QO04E ; TPASTARGET 


0.44:  .WORD 
00050 NUMBER_ STATES:: 


00050 ; STPASTYPE- 
0.46: WORD 
00052 ; TPASSUBEXP 
0.47: |. WORD 
00054 ; TPASTARGET 
U.48: WORD 
.PSECT 
00000 BLKREC KEYS: 
00000 aTPASKEYD. 
00000 sipAskey 
00002 ; TPASKEY. 


U.9: ‘ 
00004 ; TPASKEY 
: WORD 


00006 -* TBLKB 
0008 NUMBER_KEYS: : 
00008 ; TPASKEYO 
0.45: .BLKB 
.PSECT 
00000 EXIT STATUS: 
00004 TPA_BLOCK: 
~BL 


WORD 


-PSECT 
00000 OUNPSGL Ihe: 
00004 DUMPSGL_INAM: : 
00008 DUMPSGL_IRAB: : 
0004¢ DUMPSGL_ORAB: : 
00090 DUMPSGL_OF AB: : 

-BLKB 
000E0 DUMPSGL OMA: 
00140 DUMPSGL_ORSS:: 

~BLKB 
0023F -BLKB 


0 

5623 

-1 

0 

7672 

<<PARSE _NUMBER-U.47>=2> 

-1 

-LIBSKEYOS,NOWRT, SHR, PIC,1 


0 
<U.2-U.1> 
<U.8-U.1> 
<U.14-U.1> 
2 


0 
0 
SOWNS ,NOEXE ,2 


1 
36 
SGLOBALS ,NOEXE ,2 


aca 


0004 00000 DUMPSHANDLER: 
- WORD 


1fden- 1984 Hin StS H STER:cBUWP.SRE2ouNP.03 B32;1 


00240 DUMPSGL_IDESC:: 
00248 DUMPSGL_ODESC:: 
00250 DUMPSAB -OUTBUF 
002D4 DUMPSGL_OUTDESC:: 
002DC DUMPSGL = CHANNEL 
002E0 DUMPSGL_WIDTH:: 
002E4 DUMPSGL_LPP ss 
00268 ae 
002F0 DUMPSGL FLAGS: 
002F4 DUMPSGL ~START au 
002F8 DUMPSGL_END QUAL: : 
002FC DUMPSGL_COUNT QUAL : : 
00300 DUMPSGL_NUMBER_QUAL : : 
00304 DUMPSGL NUMBER: : 
00308 DUMPSGL_CUR BLOCK 
0030C DUMPSGL_MAX BLOCK: : 
00310 DUMPSGL_FILE EFBLK:: 
00314 DUMPSGL_FILE HIBLK:: 
00318 DUMPSGL_RECORD: : 
0031C DUMPSGQ_TIME:: 
-BLKB 


132 


-SSR wR HR HO. 


- 


Of SESE RRERS SCHES- 


CLISPRESENT 
ater emureut.. GETMSG 
riesePC LINES 


« DUMPS_BADRANGE 
> DUMPS~ yes 


s 
z 
orrroonm 
me i me 
Mm za 
or w 


Qnemn 


-EXTRN DUMPS$"DEVSPEC,- 
~EXTRN = DUMPS$"ENDOFF I 
-EXTRN DUMPS"NOVIRMEM, DUMP$_BADSTART 


-PSECT SCODES,NOWRT,2 


Save R2 
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: 0323 
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VAX=-11 BLi 
DISKSVMSMASTER: CDUMP 


ep 19be 2:st 83 


180 


ora 


.R 

* R 

T_STA 

TRI 
2$ 

STATUS 


T 
R 
é 
( 
STATUS 
EXIT. 
.R 
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\P 
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00000000" 
0918 
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‘ 
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41 bytes, Routine Base: S$CODE$ + 0000 


3; Routine Size: 
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NE dump$start= 


is is the main program. It gathers all the command inputs, and then 
umps the requested files. 


OCA 


1 ROUTI 
° GIN 
i Th 
id 

: 
L 


! Context for lLib$find_file 
! Result of Lib$find 


L 

find_context : REF BBLOCK 
ti sc$ f7le 

f ! Related” rie for Gand file 


nd_result : BBLOCK cfs 


$¢_s bln] 
ind_related : BBLOCK C_s Bin 


find_defa ult : BBLO dgcSc-s “bin ' Detaut yu 
! Qualifier alue descriptor 
statu ! Status variable 


ie 
output “desc : BBLOCKCdscSe _S bin, 
input_desc : “BBLOCK CkKCdsc$c_§ Bln 
input. devchar : BLOCKL16, artes" 


fp; 


' Output file specification 
! qn pyi file spect ireetien 
! $GETDVI arg block 


< 
4 
on 
c 
— 
‘a 
@ 
vw 
o 
aa 
oO 
o 
x 
ax 
w 
o 
ee 
. 
° 
‘ow 
Se 
soo 
ho 


BUILTI 


-fp = dump$handler; 


Enable the condition handler 


CHSFILL(O, dsc$c_s_bln, input_desc); 

input _desc(dsc$b-class) = dscS$k_class_d; 
CHSMOVE(dsc$c_s_Bln, input_desc, output_desc); 
CHSMOVE (dsc$c_s_bln, input_desc, find_résult); 
CHSMOVE (dsc$c_s_bin, input-desc. find-related); 
CHSMOVE(dsc$c_s_bln, input_desc, find default); 
CHSMOVE (dsc$c_s_bln, input_desc, valué_desc); 


Make descriptors dynamic 


: Get parameters and qualifiers. 


cL iSoet. value(S$descriptor(' ey input_desc); ' Get sngus file spec 
cli$get_value($descriptor('OU UTPUT® ‘s, output desc) i Get out pu ut file $pec 
dump$gl"flagsCdump$v_allocated] = cli present ($descriptor(: LLOCATED')); 
cli present tsdescriptors ASCII")); 
dump$gl_flagsCdump$v_blocks] = cli$present ($descriptor('BLOCKS')5; 
dump$gl_flagsCdump$v_byte cli$present (S$descriptor('BYTE* Mit 
dump$gl_flagsidump$v_decimal] = cli$present ($descriptor('DECIMAL')); 
dumpsol7fla one dump$v_ pice sheader] = ch ygpresens tadescrjptor) tits HEADER")); 
dump$gl" flagsCdump$v_ heagerd'= = cli$present (S$descriptor('FORMAT TTF »); 
duapsol~ flags dump$v_header Ch Jgpresent) sdescriptor) *HEADER')); 
dump$g~flagstdump$v~hex cli$present ($descriptor('HEXADECIMAL')); 
dump$ot flags dunp$v~ lon word) = ct present (Sdescr(ptor( MURBER")); 
dump$gl_flagsidump$v_number] = ch igpresent’ descriptor ('NUMBER')); 
dumpsel flags dump $v_ octal, = cli$present(S$descriptor('OCTAL')); 
dump$g\" flags dump v-output) cl ispresent( descriptor(*OUTPUT'))S; 
dum umpsolflags ump$v— “printer)” cli$present ($descriptor('PRINTER')5; 
duap pSal~ flags Fre te records cli$present(S$descriptor('RECORDS')): 
d uapsl” flagsCdump$v_word) = cli$present (Sdescriptor('WORD')); 


: If /NUMBER qualifier is present, get the value. 
iF .dump$gl_flags(dump$v_number) ! /NUMBER present 


= | 
rw: ees 


,? 10 


WANA AAAI AAAI AAAI 


IWAN POPOPOPURPI PUPP 


ARUN HODONOUE UM OOD NOMNE WOODS NO 


if dumpSgl_ flagsCdump$v_records] ! /RECORDS present 


DUMPSMAIN Sep-1984 VAX-11 Bliss-32 V4.0-742 Page 12 
voa 100 i: ~Sep- 138 9}; $4: 3 DISKSVMSMASTER: CDUMP.SRCIJOUMP.B32;1 ’ (35 
9 4 THEN 
9 4 i BEGIN 
3¢ ri é tet ioe value(Sdescriptor('NUMBER'), value_desc) 
4 BEG 

39 408 dun $ L_flagsCdump$v_tpa_number] = true ! Note parsing /NUMBER 
ss rk FNO ? dum patparsetveluen desc, number Ustates, number _ke evs s) ’ 
00 411 SIGNAL _STOP( 
01 tig duns ap + shr$_syntax + sts$k_severe, 
0 41 value_desc 
0 414 END; 
04 415 END; 
0 19 
. rt ! If /BLOCK qualifier is present, get the value(s). 
? 9 if dump$ol._ flagsCdump$v_blocks] ! /BLOCKS present 
1 4 BEGIN 
1 r § WILE £} \Seet. value(Sdescriptor('BLOCKS'), value_desc) DO 
\ ? 2 vee’ dump$tparse(value_desc, blkrec_states, blkrec_keys) 
1 427 SIGNAL_STOP( 
1 428 dump$ ap + shr$_syntax + sts$k_severe, 
1 429 * value desc 
1 0 

4 

8 

9 


BEGIN 
WHILE ct isget_ value($descriptor("RECORDS'), value_desc) DO 
hea’ dump$tparse(value_desc, blkrec_states, blkrec_keys) 
SIGNAL_STOP( 
guap$ ape ie, + shr$_syntax + sts$k_severe, 
1, vaTue_desc 


4 
4 
4 
4 
4 
& 
4 
4 
4 
4 
4 
4 
END; 
END; 
% 
4 
4 
4 
4 
i 


If /RECORD qualifier is present. get the value(s). 
| 


Cooo OOCOCoCoO OOoOoOoooO 
PREPPRR PEPE Pee eee ee POOP OOOO OOO SOO OS 982222 22 


8 

39 ! ches’ range of START and END if both were specified, to ensure that START 
re ; is less than END. 

5 if Sr 1 $gl_flags(dump$v_start] AND .dump$gl_flags(dump$v_end) 

5 rf : motel. start “quel GTRU .dump$gl_ on “hus ° ° 
o? rf ENS IGNAL _STOP(dump$_badrange) ; 
<3 43 
48 45 ! Get number of Lines on output page. 


DUNPEAIN 1$-ep-1964 01:26:46) WAKCHI BLise=52 V4.0-742, | Page 18 


9 : 
° dump$gl_lpp = LibSlp_lines() = 6; 
§ Loop, calling LIBSFIND_FILE to get files matching the input spec. 
5 find_context = 0; ! Initialize context 
$ UNTIC 
BEGIN 
8 status = LibSfind_file( 
9 nput_desc, 
find_result, 


find-related); 
find-context NEQ 0 THEN dump$gl_inam = find. context fab$l_nam]; 
status EQL rms$_dnf OR .status EQL rms$_fnf ~ 


iF = iam ir oY eee fnb] AND ! Check for only device 
(nam$m_exp_d 

nam$m_exp_ snd oR 

nam$m_ ~€x. are OR 


OO 
10809 C9 6909 SIN NINN NII NNO AAA A AOA 


MEW 9 OONOUEUAR OO OONOUE UNO 


DOOOCOOSOSOOOO OOOO OOOOOOOOOoOOoO 


FRRRRRELRLRRRRRRRRRRRRRRRRERPRER 


COCOONS NIN NINN NIN SIO OO PRAERAEX®EMAASISISISIII 


nam exP ave r OR 
. nam$m_wi dcard)) EQL 0 
Be BEGIN 
0487 input_devchar(Cdumpdvi_w_size] = 
88 input_devchar(dumpdvi_w_type] = duis. devchar ist for the 
89 input _devchar dumpdv i ~ te ~addr = gf ind context fabSl lin ' device 
0490 input “devchar(dumpdvi_ en] = 0; t chardcterietics 
0491 grout devchar Guapdvi t- “end = 0; i Terminate the List 
p 0638 VICEFN = Re oa C 31" ' Get characteristics 
P 049 iieer desc 
494 ITMLST = jnput “devchar): 
495 pete = dumpdvi_C_efn); ! Wait until complete 
38 1; ' Don't take an error 
86 9 BBLOCKLT ind. context(fab$l_dev], dev$v_for] = 1; ! Mark foreign 
7 0498 END; 
88 0499 END; 
89 500 Status EQL rms$_nmf 
90 44 END 
91 5 ¢ 
4 2 BEGIN 
9 IF NOT .status ' Report error 
94 505 HEN 
g 5 oreie 
2 SIGNA 


33s 


PEEP BEEF PMA IMMA DAT BPA A AUIS WWIII AAAI AIAIPPOPPUIPUPINND 


dunp$_t fderesult, + shr$_openin + sts$k_error, 
tind” contextLfab$l_sts], .find_context(fab$l_stvJ); 
ELSE 


dl dumpSopen_input(.find_context, find_result) 
o i D dum umpbopel.. output (output_ desc, .find_context) 
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Pw 
SRENLSSSLES 
COSCOSDSCOOOOOCO 


DW tal tal ababeal 
ab oS Se 
OuFuin—o 


! Build $GETDVI item 
| 
| 


Sep-1984 VAX-11 $-32 V4.0-742 14 
~000 13 3eb-198e 12:54:35 DISK SVMEMASTERS COUP. SReJDUMP.B32;1 2° 5 
; 4 17 

; 20 1 um t_width(dump$gl fab); ! Get width of Listi 

3 rt 4 baie ttmadreduaptgy : tine) ! Get curr nt time ” 

3; uapsgl n aver : ete ad Pat qual; ! get nit at /NUMBER 

; 410 521 prone ump : ! Dump the file 

; 411 5 ; dunp$c lose. ds find _context); 

; tig : 2 i pagetelece., output (); 

; aig ; 4 strScopy. dx(find_related, find_result); ! Propagate related 

5 41 $gl_inam(nam$v_wildcard] 

: ci? 528 THEN Nor jun axTt status OR sts$n, inhib_nsg; 

; 218 254 ! Of LIBSFIND_FILE loop 

: 420 531 

<3 0339 oe -exit_status OR sts$m_inhib_msg; ! Exit with no message 


-PSECT SPLITS,NOWRT,NOEXE,2 


SN ——————————————OOOOEOEOEEEEEE——E—EEee span 


54 55 50 4E 49 80000 P.AAB: .ASCII \INPUT\ : 
0 -BLKB 
«00900 03° 0008 P.AAA: .LONG 3 
ADDRESS P.AAB 3 
54 55 50 “ASCII \OUTPUT\ 3 
-BLKB 
00 LONG 3 
00 eADDRESS P.AAD 3 
44 65 54 41 43 GF 4C ASCII  egennenctend é 
00 ° 5 
00 ADDRESS P.AAF : 
49 49 43 ASCII] \ASCIIN 3 
-BLKB 
8 «LONG 3 
«ADDRESS P.AAH 3 
53 48 43 4F [ASCII \BLOCKS\ 3 
-BLKB 
6° LONG : 
0 ADDRESS P.AAJ 3 
45 54 eASCII \BYTE\ 3 
4 LON 3 | 
-ADDRESS P 3 
4C 41 4D 49 43 “ASCII \DECIMAL\ 3 
“BLKB 
-LONG 7 
ADDRESS P.AAN : 
52 45 44 41 45 48 SF 45 4C eASCII \FILE_HEADER\ 3 | 
“BLED 1 
888 aptiess fp ee 
44 45 54 54 41 4D : : oe yp peerren 3 
ide SO ORESS P.AAR 3 


4c 41 


4D 49 43 


44 52 


52 


53 


53 


45 


4F 


52 


54 


45 


44 


52 


53 


4a 


4B 


52 


ah 


& 


47 


42 


41 


50 


4E 


4F 


&4 


42 


43 


4F 


SUSHI 3 


S 


Non oom 2OuW OO 


SSssSssssssss 


oo 
So 


Woe 
“NO™N 


0 000008 
00000000" 
4F 4C 4 


Pee 


80000000" 


OFFC 


Oooo 


CoOoo 


SOOO OCOCOOOOOCOOOOOOSOOOOOOOD 


00000 DUMPSSTART: 
-WO 


5 HENS 


Poo 
omoo 


SsSsssssss 
wv 


-Sep-1 
1b-ep-1 


P.AAT: 
P.AAS: 
P.AAV: 
P.AAU: 


P.AAX: 
P. AAW: 


P.AAZ: 
P.AAY: 
P.ABB: 
P.ABA: 
P.ABD: 
P.ABC: 
P.ABF : 
P.ABE: 
P.ABH: 
P.ABG: 
P.ABJ: 

I: 


P.ABL: 
P.ABK: 
P.ABN: 
P.ABM: 
P.ABP: 
P.ABO: 


Pe tb a a ts ts te 


DIN & 
fororom 


9b 12:89:35 


VAX-11 Blis 
DISKSVMSMAS 


\HEADER\ 


s-32 V4.0-7 


ASCII 
KB 


LONG 
ADDR ESS P 
ASCII \HEXADECIMAL\ 
-BLKB 1 
“LONG 11 
sADDRESS P.AA 
“ASCII \LENGWORD\ 


«LON 
“ADDRESS P.AAX 
° acti? \NUMBER\ 


«LONG 
eADDRESS P.AAZ 
ot} \OCTAL\ 


-ADDRESS 
ASCH 
KB 


P.ABB 
wen 


«LONG 
eADDRESS P.ABD 
ot} \PRINTER\ 


~~ 


«LONG 
»ADDRESS P.ABF 
“ASCII \RECORDS\ 
-BLKB 1 

-LONG 7 
-ADDRESS P.ABH 
“ASCII \WORD\ 


4 
-ADDRESS P.ABJ 
tt aes: 


«LONG 

-ADDRESS 

-ASCII 
-BLKB 


6 

P.ABL 
\BLOCKS\ 
- LONG 

ADDRESS P.ABN 

nt *\RECORDS\ 


«LONG 
eADDRESS P.ABP 


-EXTRN SvSSeetovl. SYSSWAITFR 
eEXTRN SYSSGETTIM 


-PSECT SCODES,NOWRT,2 


-R6,R7,RB,RO,R10,R11 


42 P 
TER: CDUMP.SRCJOUMP.B32; 1 


0346 


aeo 


11 
DUMPSMAIN 18-5¢ -1984 01:26: VAX=-11 Bliss-32 V4.0-742 Page 16 
Mae 000 race 1 SEs se gt MGA Stee? Mal cee aspume.e321 2% «2 
: § 00 17 MOVAB CLISPRESENT, R8 F 
i 3 MOVAB P.AAA, R : 
4 ' €F MOVAB DUMPSEL FLAGS, R6 : 
a6 Bf Af . § BOVAB D Hs HANDLER (FP) + 03 
08 00 6€ * 00 ¢ , MOVC a. (SP), #0, #8, INPUT_DESC : $366 
17 AE MOV , INPUT_DESC+3 + 0370 
1c OA 14 AE F MOVC3 #8. INPUT"DESC, OUTPUT_DESC + 0371 
AE 14 AE 45 MOVC #8, INPUT_DESC, FIND RESULT 3 36 
AE 14 AE 48 MOVC3 #8. INPUT"DESC. FIND-RELATED > 037 
(= 14 AE 2} MOVC3 #8. INPUT"DESC, FIND-DEFAULT : 0374 
4 AE 16 AE MOV #8, INPUT-DESC, VALUE_DESC + 0375 
14 A oF 30 PUSHAB INPuT DESC : 0380 
69 02 FB 0068 CALLS #2, CLISGET_VALUE : 
1C AE 9F 0006 PUSHAB OUfPUT_DESC + 0381 
10 A? OF 0068 PUSHAB P,AAC ; 
69 02 FB 00068 CALLS #2, CLISGET_VALUE : 
24 A? OOF O06 PUSHAB P.AAE + 0382 
68 oI FB 0 CALLS #1, CLISPRESENT : 
66 01 00 : FO 00074 INSV RO, #0, #1, DUMPSGL_FLAGS F 
34 A? 9F 00079 PUSHAB P.AAG + 0383 
68 01 FB 0007C CALLS #1, CLISPRESENT : 
44 AZ OF OO007F PUSHAB P.AAI + 0384 
66 01 6 83 £B do8s FS RO! Bt ele BUMPSGL _FLAGS 
50 9 9F OOOBA PUSHAB P.AAK “6 + 0385 
46 01 8 9 4 $090 fasts 40 5 STE ae PséL FLAGS : 
60 3 oF itt PUSHAB P.AAM : : 0386 
68 gi FB 0098 CALLS #1, CLISPRESENT ; 
66 01 0 : FO 000 INSV. RO. #3, #1, DUMPSGL_FLAGS F 
7, A? OF OA PUSHAB P.AAO : 0387 
68 1 FB OA CALLS #1, CLISPRESENT F 
66 01 04 oe : FO OOA6 INSV RO, 6, #1, DUMPSGL_FLAGS Pe 
£8 oi FB OAF CALLS #i, CL ISPRESENT ; 
66 01 05 9 FO 00 82 INS RO, #5, #1, DUMPSGL_FLAGS ; 
0098 C7 9F 000B PUSHAB P.AAS : 0389 
68 gi re 08B CALLS #1, CLISPRESENT : 
66 01 6 eal 9 £0 acs INSY RO 46, #1, DUMPSGL_FLAGS Fes 
68 o FB ¢ CALLS a, CLISPRESENT ; 
ry) 01 oa Q Fd cA INSV RO, #7, #1, DUMPSGL_FLAGS ~~ 
63 FB S CALLS #1, CLISPRESENT ; 
01 Ab 01 F Dd INSV. RO, #0, #1, DUMPSGL_FLAGS+1 ; 
oocc 9F 000D PUSHAB P.AAY : 0392 
1 FB E CALLS #i, CLISPRESENT : 
01 Ab 01 1 F E INSV. RO, #1, #1, DUMPSGL_FLAGS+1 : 
Oop 9F O00E PUSHAB P > 0393 
68 1 FB £ CALLS #i, CLISPRESENT ; 
01 «Ab 01 9 F F INSV. RO. #2, #1, DUMPSGL_FLAGS+1 : 
00EC i F PUSHAB > 0394 
68 1 8 FA CALLS #1, CLISPRESENT ; 
01 a6 01 0 F FD INSV RO. #3, #1, DUMPSGL_FLAGS*1 : 


aes 


a 


a 


7 
p11 Xo) BLise=32-v4.0-742 , Paseo 
16-Sep-1984 01:26: ys TER: CDUMP. SRC.JDUMP.B32; 
1-88-1986 12:51:35 DI SKSVMGMA ae 
1 PUSHAB NT : 
3 00Fe i re i CALLS ie ELISPRESENT as acser _ 
01 . F 00110 PUSHAB ; 
a6 , 010¢ i FB 114 CALLS i SL ISpeesenT _FLAGS#1 | oe 
01 11D PUSHAB | : 
AG a i Pe Boi os CALLS ii. ; Berets buns. _FLAGS#1 ; 02 
91 6 6 i} 15h BBC  puarted FL LAGS+1, 1$ + 040 
a6 VALU : 
6 01 Ae oF 15F PUSHAB 
0188 0 a 9 CALLS. #2. CLISGET. VALUE pe 
5 i § O01 Bisse abs DUMPSGL_FLAGS+3 : 0409 
03 6 BS belay PUSHAB NUMBER_KEYS : 
AB OF 0014 PUSHAB NUMBER™STATES 3 
00000000" EF 9F 00144 PUSHAB VALUE DESC : 
C of 44 rey CALLS a3 RONPSTPARSE Fass 
eon ee a esc jms 
we. +B ey PUSH AcccDuns FACILITY@16>+4344>+4> ; 
~Reempegar 3 FB 165 ' Sete” ai, DURPSGL FLAGS, 3$ : 0433 
‘6 c §F 00169 28; - PUSHAB. VALUEC DESC : 
0188 PB O01? CALLS #3, CLISGET_VALUE 
69 63 EB Oot? BLBC f 5 ; 0425 
25 PUSHL : 
28 Bd 00176 AB BLKREC_STATES : 
a oF 17 PUSH : 
ae Sa a : 
F 5 fe 181 BS 8 ; 0427 
epoeeeney ef > § oe PUSHAB VALUE_DESC on 
zs oj BP 156 PUSHE P<<<DUMPS FACILITY@16>+4344>+4> ; 
00000000* f bp : CALLS #3, LIBSSTOP a8 
- 33 1 198 } one UMPSGL_FLAGS+1, 5$ 0439 
01 Ab F OOTAD 48: PUSHAB VACURLOE SC” 
32 24 AE OF OOTA0 4$: SHAR ; 
o146 Pb GOA CALLS, #3, CLISGET_VALUE : 
69 i EB OtAA BLeC) RO, SS : 0461 
- BD OO1AD PUSHAB BLKREC_STATES 
00000000" EF oF 1a PUSHAB VALUE DESC ; 
2c AE OF 00185 CALLS #3, DOMPSTPARSE 
F 4 83 BS RO. 4 0443 
00000000v E g f 1BF PUSHAB VALUE _DESC ; 
26 AE OOF OOIC PUSHES WI 4>+4> 3 0446 
1 Bb ole PUSHE  AC<<DUMPS_FACILITYA16>#434 ; 
00000000« t OD ie CALLS #3, LIBSSTOP ; 0439 
“ cf 58 Fst DUMPSGL_FLAGS#1 : 
"A 48 Bord BLBC DUMPSGL_FLAGS*2, 68 : 


' 
4 
SS 


2a 


18-5 $ep-1984 VAX-11 Bliss-32 V4.0-742 Page 18 
1 at 7 9}: g¢: i DISKSVMSMASTER: DUMP. SRCIDUMP.B32:1 > (5) 
08 Ab 04 ag pt 1p HPL DUMPSGL_START_QUAL, DUMPSGL_END_QUAL 1 0454 
000000006 8F DD i PUSHL sUMPS $ BADRANGE + 0456 : 
900000006 0 ) FB OOIED 6S ett m0: 168: LINES $0461 
FLAG FA nO i 1¥¢ MOVAR  -6tRO d “BUAPSGL LPP : i 
6E 1F CLRL —«FIND_CON : 04 i 
4 AE 99F OO1F9 7S: PUSHAB FIND-RELATED + 046 i 
AE F OO1FC PUSHAB FIND-DEFAULT : 
AE OF OO1FF PUSHAB FIND-CONTEXT : 
3a OE OF 0090 pUSHAR GHPUT ESE. : 
000000006 oS F CALLS #5, LTBSF IND. FILE : i 
D F MOVL RO, STATUS : i 
gE 1 MOVL § FIND_CONTEXT, R2 + 0475 ; 
1 1 BEQL = BS : ; 
FD14 «C6 28 «A2 OD 1 MOVL  40(R2), DUMPSGL_ INAM : 
Q001CO4A «BF 5 D4 1D 8$: CMPL STATUS, #11476 + 0476 
09 1 4 BEQL $ : i 
00018292 8F 33 pi 6 cnPL STAT US, #98962 : 
50 FD14 C6 CO F 9$: MOVL DUMP PSGL_INAM, RO + 0479 ; 
WW 3 ‘ 
0147 «BF 34 A0 4 BIT ; (RO), "#327 0484 
04 AE 00020004 &F ¢ MOVL rat 76, INPUT_DEVCHAR + 0487 
08 A€ 40 A2 9E 44 MOVAB 64(R2) iweut apc VCHAncs 3 re i 
OC AE 7C 00249 CLROQ INPUT _BEVCH + 0490 
7E 7C 0024C CLRQ = =( SP) + 0494 ; 
7E 7C 0024 CLRQ _ =( SP) : ; 
16 AE OF PUSHAB INPUT_DEVCHAR : : 
28 AF 9 PUSHAB INPUT DESC F ; 
7 D 3 va #3, : ; 
000000006 0 : FB CALLS #8. SYSSGETDVI : : 
DD PUSHL @# > 0495 : 
000000006 09 i. é CALLS #1, SYSSWAITFR : : 
1 p 6 MOVL #1. STATUS > 0496 ; 
43. A2 1 $ BISB2 #1. 67(R2) > 0497 : 
000182CA BF f 108: CML stA TUS, #99018 : 0500 i 
00 ; 79 BRW 133 ; 
18 FS 7C 118 BLBS STATUS. 12$ > 0504 i 
7E 08 A2 7D OO27F mova (R2), =(SP) ; 0519 i 
44 AF oF 3 PUSHAB FIND D_RESULT : 0507 
00000000" 8F DD PUSHL #&<<<DUMPS_FACILITY@16>+4248>+2> : 0508 j 
5 re CALLS #5, LIBSSTGNAL 3 F 
rs BRB 14§ > 0504 
3c OE OF 12$:  PUSHAB FIND_RESULT : 0514 } 
Dd A PUSHL R ; 
FB CALLS #2, DUMPSOPEN_ INPUT ; 
E A BLBC RO, 158 3 i 
Bp PUSHL R > 0515 
20 AE OF PUSHAB OUTPUT DESC F 
: FB CALLS #2, bua OPEN_OUTPUT : 
FDAO FF 0058 PGR DUAPSGLOFAB : 0518 ! 
6 FB CALLS Are TM uote : 


H 11 
16-Sep-1984 01:26: VAX-11 Bliss-32 V4.0-742 Page 19 C 
1o-80=1 882 93:36:31 DISKSVMSMASTER: CDUMP.SRCJDUMP.B832;1 . (3) \ 
2C AG OOF c9 HAB DUMP$GQ TIME 3 0519 
000000006 0 01 F ¢ CALLS #1, SYSSGETTIM : 
4 A 10 Ab OD CA VL GL_NUMBER_QUAL, DUMPSGL_NUMBER 3 0520 
000000006 0 FB cr CALLS #0, DUMPSDUMP_FILE : ; } 
OOO0Ov EF FB Be CALL #1, DUMPSCLOSE_INPUT : 
00000v EF 0 FB O02DF CALLS 40, DUMPSCLOS “OUTPUT : 333 
AE 3 eg 13$ PUSHAB FIND_RESUL ; 05 
AE OF E PUSHAB FIND-RELATED : 
000000006 02 F E CALLS # sik COPY_Dx : 
FD14. C6 CO F314$: MOVL Pp GL_INAM, RO : 0527 
reek Were Bag pgm) U8 : 
50 00000000" EF 10000000 8F C9 OOZFF 158 BISL3  #268435456, EXIT_STATUS, RO : 0532 
4 00308 RET 3 05 


; Routine Size: 780 bytes, Routine Base: SCODES + 0029 


if deo-19R4 9b:3h:$) ONS cSumgMASTeRsCDUMP.SR¢2DUMP.B32;1 


ROUTINE dump$tparse(string, states, keys)= 

BEGIN 

This routine calls TPARSE given the string, states and keys. 
Inputs: 

i string address of descriptor for string 

; states address of TPARSE states table 

keys address of TPARSE keys table 


string : REF BBLOCK; 


CHSFILL(O, tpaSk_ aunts =" the block); ! Initialize block 
440 tpa_block(tpa$l_Ctount) = tpaSk R count); 
441 ~block(tpa$l-options) = tpaSm_a 
44 tpa. “plock(tpa bastringent a aartinet dsc$w length); 
44 ret “block(tpa$l“stri ngptr = .stringldsc$a_ gyetntor se 
444 : — LibStparSe(tpa_block, .states, .keys ! Call TPARSE 


Foy oF a ot oF oY oY ot at at ot ot at at ot 

Oo MEW —ODONOUS 
SOoooooooooooooooooooono 
PwaTWaY lal al alvalvalvalvalvalvalvavalvalvarvaivalval asta 


PUPS BB BB BEEF PII 
MEW CO ODN VEU" OOONOUE 


007C 00000 DUMPSTPARSE: 
-WORD Save R2,R3,R4,R5,R6 


56 00000000" EF 9€ 0000 MOV TPA_BLOCK, 
24 00 bE 5 2c 008 Moves #0," (SP), #0, #36, TPA_BLOCK 

ry o3 D OF MOVL #8, TPA_BLOCK 

04 A D if MOVL #2, TPATBLOCK+4 
5 046 AC p 1 MOVL STRING, “R 

08 Ab 60 1A MOVZWL (RO), TPA BLOCK+8 

OC Ab 04 Ad p 1 MOVL 4 (ROS TPA Bt OcKer2 
7E 08 ac 72D MOV TATES, 

3 PUSHL iH 
000000006 00 FB 9 CALLS , LIBSTPARSE 
04 000 RET 


3; Routine Size: 49 bytes, Routine Base: S$CODES + 0335 


1esbeoc3ge Q:3¢:41 YNGTABLSHEE2 SG T42souneosar1 °20% od} 


000 
3 447 ROUTIN $ 
is eecin E dump$store_num= 
: 4 i This routine is called when the /BLOCKS (RECORDS, or /NUMBER qualifier 
; 451 i is used. It snvorrogaces flags set by fPARSE to determine which numeric 
$ : § ; volus has been parsed and stores it in og Sette ate result cell. 
see Thea sunrtel- _flagsCdump$v_tpa_start] ! Parsing START 
: 6 56 ump$gl ~ffert. quel = .tpa_blockCtpa$l number); 
: $28 if sumosat flagsf inet. 3tbeed = sien? ! Note START was present 
: ree é3 it 34 IF .dump$gl_flagsCdump$v_tpa_end) ! Parsing END 
; 466 9 BEGIN 
:; 46 LK dump$gl_end_qual = .tpa plockltpast. number]; 
: oo2 a7 dump$gl flags dump$v_end] = true; ! Note END was present 
; 186 Bar? it 4 IF .dump$gl_flags(dump$v_tpa_count) ! Parsing COUNT 
SB ode beg SOR a ae 
3 count qual = .tpa_bloc a$l_number 
3 rth 0379 duno$9~ flagsCdump$v_ ets | = he ! Note COUNT was present 
; $7 sf) 3433 IF .dump$gl_flagsCdump$v_tpa_number] ! Parsing NUMBER 
; rth a38s 5x se rte number qual = .tpa_blockCtpa$l_number) 
; $2 0385 SIGNAL_STOP(dump$_facility*16 + shr$_badlogic + sts$k_severe); 
: 478 5 
; 479 588 dump$gl_flags(dump$v_tpa_start) = false; ! Clear flags for next call 
: 480 R duapSel“tlesstduap$v-tperend) = false . ; 
3; «4481 B2 dump$g\" flagsCdump$v_tpa_ ~count) = fa lie: 
3 rt 0382 dump$g\"flagsCdump$v_tpa_number) = false: 
> 484 59 
; 485 §38z RETURN true ' Return success to TPARSE 
: 486 0595 END; 
000C 00000 DUMPSSTORE_NUM: 
-WORD Save R2,R3 3; 0556 
5 99000 000° EF 9E 000 MOVAB TPA BLOCK+28, R3 R3 ; 
0 : MOVAB 4 o, gLA GS, 3 
08 3UbUé«<iA E BBC sas, ' : 0563 
A 1 MOVL TPA spegcks28, Bu DUMP Ae START_QUAL ; 3 
pee : Bi 282 #128 3; 056 
OA A E1 1$: BBC DUNPSGL FLAGSeS, ; é 
A MOVL Teh B 8 DunPsé Eno QUAL ; 
A BISB2 “BURPSGL FLA ; 057 
D BRB $3" 3 6 


Kk 11 
D AIN 16-Sep-1984 VAX-11 Bliss-32 V4.0-742 
vet 1 ~3007 138% 9}: $6: DISKSVMSMASTER: CDUMP. SRCJDUMP.B32; “hd 
“ Oc tS o¢ fi toes i Toh Brock D8 “DUAPSGL- EOUNT QUAL 
5 nS mt ts 8 BISB2 » DUMPSGL_ Anes ie 
A2 9 3$: TSTB Heras fuss 
1 4 BGEQ = 4 
10 ; p 4 MOVL TPA.BLOCK+28, DUMPSGL_NUMBER_QUAL 
00000000" BF DD 00049 4$: PUSHL #<<<DUMPS$_FACILITY@16>+4384>+4> 
mnnooongs 1 FB 0004F CALLS #1, LIBSSTOP 
F BA 00056 5$: BICB2 #240, DUMPSGL_FLAGS+3 
1 b0 098 MOVL #1, RO 
4 E RET 


; Routine Size: 95 bytes, Routine Base: S$CODE$ + 0366 


ean i 
| ROUTINE dump$Sopen_input(fab, filedesc) 
cas BEGIN cebecett sbinain ay 
$ i This routine opens the input file 
i ts: 
Z Inputs 
{ 


File is opened 
Routine value: 


' 
' 
' 
' 
' 
1 
' 
! 
; Outputs: 
' 
‘ 
' 
' 
: true successful 
false error, signal already done 
a BBLOCK 
iledesc : REF BBLOCK; 
b : SXABFHC_DECL 
: BBLOCKEdTb$c_length 


desc : BBLOCK(dsc$c_s 
tus; 


2 St SS | “QOOOKOOOOCOOVOOODO 


WN OS OONANE WN 9 OONOUES WN (ODE NOULE UN OOOO 


b : REF 
l 

xa 

ib: J 

ib b(n), 
ta 


dump$gl_ifab = .fab; 
dump$gl"inam = .fablfab$t_nam); 


If .BBLOCKCfablfab$l_dev), dev$v_net) 
THEN 


otttattateeatct ttt ttt tt ttt teed 


1 


BEGIN 
IF .dump$gl_flagsCdump$v_al located) 
OR .dump$gl_flags(dump$v_blocks 
OR umeSal_ flags dump$v_header 


SIGNAL_STOP(dump$_devquals); 


ae 


SONNE UN SOHNO NRW OOR NEAR ONO ODD 


FUP IULVLVIUIUDUSUSUSIUSUSUSVSUSUSUSVST SILESIA SISTINE EB ES EE EE 


WAT NRORUPUPURITURUNUN 2 2 = OOO 
oan 
WW 


Wo 


dump$ql_flags(dump$v_records1 = true; 


IF .BBLOCKCfabCfab$l_dev). dev$v_for] 
OR (NOT .BBLOCK( fab Tabsl dev). devs. tod) 
rae NOT .BBLOCKL fablfab$i_devjJ, dev$v_netJ) 


bY See re: 
SHIEA 
NR—OODNO NEW OVONO 


aaa s33335 


40 N 

41 IF .dump$gl_flags(dump$v_al located] 
4g OR -dunpSst tt egs( dump v_record 5 
rb OR i umesal. flags dump$v_header 


ab pointer to an already initialized fab complete with NAM block 
iledesc pointer to string descriptor of resultant string from Sparse 


Bc 12:89:33 DtSeSvmsnaS tens coume-smezounp.e32;1 "8° | 


' and NAM bl 


fabCfabSb_shrj=fab$m_get OR fabSm_put OR fab$Sm_upi; ! Open file shared. 


' If network device 


! Ensure no conflicting 
qualifiers 


Force record mode 


If foreign device 
or not disk, tape, or network 


Ensure no file-oriented 
qualifiers 


' Set pointer to FAB 
ock 
| 


a AIN 


-~ 
uw 


MEW O OONAOUS WN —OOONO 


USFS 
PAEAEAEAPEAPEMNMAMINIINI 


as 


COC9 0808-4 NINN INNO 


SSBLEALA = 


o00 
wr 


Se ahah ab ah Ab ab Ab ih Ab db bh bcd beh beh sbebh shed bh shh sh sl alsa 


SSLESE 


3 


Se Be Se Se Se Ge Be Se Ge Se Se Ge Ge Se Ge Ge Ge Se Se Ge Ge Ge Ge Fe Se Ge Be Ge Se Se Se Se Ss Ge SF Se SF SF Se Ge Oe Ss SF Se Se Se Se Se Se Se Se Sees teSseee 


iS 


bese 
12-868 


SIGNAL STOP (dump$_devquals); 


If (GunpSql. inaaCnanst_ tnd] AND 
(nam$m_exp_dir OR 


nam$m_exp_name OR 
nam$m_exp_type OR 
nanga_0xp ver OR 
nam$m_wildcard)) NEQ 0 


N 
EN SIGNAL STOP (dump$_devspec); 
ELSE 


BEGIN 
IF NOT .BBLOCK( fabCfab$l_dev], dev$v_rnd) 
ond, GunpSe\_ flags dump$v_al located) 


SIGNAL _ STOP (dump$_devquals); 
SHABF UE INIT nebo taeh, 
t=0); 


n 
fabCfab$i_xab) = ixab; 
END: 


IF NOT .dump$gl_flagsCdump$v_records] 
fabCfab$v_ufo] = true 


oooo 
COnn 
Co: on~ 
Wwr—o 
CUNT IAAOPIPININIWE BB BEE EWE VTONOPNPNINOPOPOPUPUNI III WI WII UI III 
m— 
exe 


1386 $3:3hi3s | Beeb Sale tea schGals see zpume.e32;1 29° «By 


Ensure nothing except device 


Ensure no disk-oriented 
qualifiers on tape 


Initialize XAB 
Set pointer to XAB 


Open file only 


6 
Sees fabCfab$v_get) = fabCfab$v_sqo] = true; ! Allow GETs, sequential op 
0685 
3H Yuet -BBLOCKC fabCfab$i_dev), dev$v_for] ! Do OPEN if not foreign 
688 BEGIN 
434 IF NOT SOPEN( fab=. fab) ! Open the input file 
690 THEN 
0691 BEGIN 
69 dump$file_error ( 
O37 om $_facility*16 + shr$_openin + sts$k_error, 
-fa 
95 ;tablfabst_stsi, . fabCfab$l_stv)); 
9 fabCfab$l_xabJ~= 0; 
69 RETURN false; 
98 END; 
4 END; 
. 1 fabCfab$l_xab) = 0; 
7 4 IF .BBLOCKCfablfab$ dey}. dev$v_for) ! If foreign device 
7 OR (NOT .BBLOCK(fab(Tab dev). dev$v_fod ! or not disk, tape, or network 
, 5 + al -BBLOCK( fablfab$l_dev)], dev$v_net]) 
7 BEGIN 
7 d l_idesc(dsc$w_length] = .dump$gl_inam[nam$b_dev); ' Prune to 
7 3 sue at tides PH Haregt theo 5 “dump cine lat d ! device only 


yoer000. 16 Sep 1984 Tboei gs OTe SuwGnaSfenscounp.sReaoump.e32;1 29° (Bs 


; P 071 status = Sass tentoeen = dump$gl_ide ! Do ASSIGN if foreign 

608 7 fabl fabet stv); ° 

; 604 a IF NOT .status THEN SIGNAL "§TOP( Status); 

ig Hg § es 

; 608 71 que $gl_idesc(dsc$w_length] = .dump$ql_inam{Cnam$b_rsl); 

:; 609 i$ umpsol BE NeHt hs “pointer) = “duap gC_ re pate yp rsad; 

: 610 At | eune 

. oe: 

; ei8 f 1 if wor -dump$gl_flagsCdump$v_records) 

; ol? § gr og HOTet thermal = .fabCfab$l_stv] ! Save the channel 

; g13 0725 BEGIN 

$ oi8 P 4 8 $RAB INIT Sr apedunpsel. irab, ! Initialize input RAB 

: 620 07 8 4 IF NOT SCONNECT (rab=dump$gl_ irab) ! Connect RAB 

: 3 : 09 3 i wen BEGIN 

: 6 5 07 : a dump$file_error( 

3 e ¢ 8 § ? ump$_ ~facility*l6 + shr$_openin + sts$k_error, 

> 626 0734 4 dun $91 irabCrab$l_sts], .dump$gl_irabCrab$l_stv); 

3 627 735 4 RETURN false 

; 628 7 : 3 3 

3 ° ; 4 5 END; 

> 631 07 

; O36 Bree dump$gl_cur_ block =1; 

; 633 O74] dump$gl"max~block = -1; 

; 635 ares IF ,BBLOCKL fab fab$\_dev], dev$v_rnd) ! Disk device 

; e37 35% Ae lananap ne os a8 dev$v_for] ! If foreign disk 

> 639 747 

; 640 b7e8 deze sete Length] = dib$c_length; ! Set up to get device 

3 641 749 dibdescldsc$a_ ointe r) = dib;~ i characteristics 

3 oh 750 status = N(CHAN=.dump$al_ channel, PRIBUF=dibdesc); 

3 vr ey IF NOT gh be | 
3 645 738 SIGNAL. STOP (duap§.. getchn, 0, .status); 

3 646 754 dump$gl_cur_bloc 
; o 03 dump$gl. max ~biock = -dibldibst _maxblock] = 1; | 
i 808 Fa ELSE | 
; 630 £38 BEGIN ' Files-11 disk 
; 636 160 } Save FHC information for page heading. 
: 654 76 dump$gl_file_efblk = .ixabCxab$l_ebk) 
3 636 17 a weit os dump$gi_ Tile _efblk NEQ 0 AND™ ixabCxabSw_ ffb] EQ. 0 | 
: 65 765 dump$gl_file_efbdlk = $gl_file_efblk - 1; | 
; 658 766 dunpor tits. hibTk = ‘abt tapet 93tal; 


12 
vO6-000 IESEOcIORS 4:26:4) YMCLTABLSSEZE2 Y4A0°742 ap os2.1 P29 


THEN 


a8 dump$gl_bufferldsc$w_length] = dump$c_rmsbufsz ! Largest RMS record 


if ,BOLOCKE fabl fabSi_dev3. dev$v_sqd) 


5, sg nen! bul torldectu_ length) = dump$c_tapbufsz ! Largest tape Q10 


ed et ed a ad ed ed 
NOUS WOO 


‘G2 Go G9 Cd Gd Cd Cd Co CD CD. 


: $58 44 ; on” -dump$gl_flagsCdump$v_records) ! Not record mode : 
; 661 769 4 BEGIN 3 
; 66 7 4 dump$gl_max_block = ages (be grees : 
; 66 771 4 IF -duapsal. tLags(dus $v_allocated $ 
; eee ore 4 _THE ump$gl_max_block = .dump$gl_file_hiblk; : 
ee on. : 
; oc8 wre ff gunmetal tlogeldunpSy_sterts ; 
3 $70 O78 dump$gl_cur_block = MAXU(.dump$gl_cur_block, .dump$gl_start_qual); ; 
: 67 Q780 ¢ IF .BBLOCKLfabLfabSl dev], dev$v. for] ; 
; 67 781 2 AND .dum Sol cur block GTRU .dump$gl_max_block ; 
; ore O7 ¢ THEN SIGNAL_STOPTdump$_badstart, 1, -dump$gl_max_block); : 
; 676 O784 ¢ IF .dump$gl_flags{dunp$v_end] ; 
; O78 O7ree dump$gl_max_block = MINU(.dump$gl_max_block, .dump$gl_end_qual); ; 
; 680 Ores If _;dump$gl_flagsCdump$v_count) 3 
: 68 90 IF .dump$gl_flags(dump$v_start] ; 
; obi is THER eset, Si me ae dump$gl block : 
3 um max_block = -dum max_block, 3 
: $3? args P  duapsol_ stort. qual + cdumptel count quel - 1) : 
: 687 0795 dump$gl_max block = MINU(.dump$gl_max_block 3 
; +688 ores O  duapsalcur block + “duaptel court, .quel - 1); 3 
: 850 0798 
; 691 0799 2 dump$gl_record = 0; ; 
; 69 0800 IF NO  duapsol f\ageCquagsy records] 3 
; 63 +2 AND -BBLOCK fabffab$l_devJ, dev$v_rnd] 3 
3 693 080s dump$gl_record = .dump$gl_cur_block =- 1; : 
: 697 05 ; 
: one O8og Allocate input buffer. : 
3 $60 B08 if .dump$gl_flags(dump$v_records] ! If record dump ; 
; | 3 


pp | 
SISARaN= 
SOOOOSOOOSOOOOOOOoOSoSo 


oe dump$gl_bufferl(dsc$w_length] = dump$c_qiobufsz; ! Largest non-tape Q10 
710 

711 status = Lib$get_va( ! Get memory 

ay 9 duapsot put térbdsc$u_ length) 

71 dump$9l buf fer(dsc$a peinzer ); 

ee ; IF NOT .status THEN SIGNAL_STOP(dump$_novirmem, 0, .status); 


DUMPSMAIN 16-5¢ 5ep-1984 
MOae000 30771 3be 93:59: 
; ¢ § gump$ol_irablrabs dump$ol_bufferldsc$w. Length] 
Py UM radLradow_us -Gum ei sc$w_lengt 
: £8 § soad trad rab$\l~ USF] “dump$gl7bu uffer fgsc fu. “pointers; 
: 720 0838 
SRMS_PTRE, 
“EXTRN 
OFFC 00000 DUMPSOPEN. INPUT: 
58 000000006 8 pO 0000 HOVL 
A 90000000 00 9 9000 MOVAB 
9 o00c0000" EF 9E 00010 MOVAB 
—E FFS8 CE 9E 0001 MOVAB 
56 04 AC DO 000IC MOVL 
FD10s¢ 56 D0 00020 MOVE 
FD146 C9 28 AG DO 00025 MOVE 
7 Ag 43 BF 30 000¢8 MOVE 
5 40 a6 9 000 MOVAB 
14 67 0D €1 000 BBC 
08 69 £8 000 BLBS 
04 69 01 £0 00038 BS 
05 69 06 €1 0003F c 
8 DD 00048 18 PUSHL 
6A 01 £B 0004 CALLS 
01 Ad 0 88 00048 28: «BI SB2 
08 03 A? £8 oo4e 38: LBS 
D 67 OE €0 00050 BBS 
9 67 0D £0 00054 BBS 
09 69 EB 00058 48: BLAS 
04 01 Ad 5 £0 00058 BBS 
05 69 9 £1 00060 BBC 
B DD 00064 5$ PUSHL 
6A 01 F 44 CALLS 
50 s«FD14» «ss C9.-—«OO 00069 6S: —SssMOVLE 
0147 BF 36 AQ B§ 0006 BITW 
2 BEQL 
000000006 §F Dd 00076 PUSHL 
6A O1 FB oo7C CALLS 
E 11 O007F BRB 
08 67 i 1 7S BBS 
05 9 £ 5 BLBC 
8 OD PUSHL 
6A 1 FB QOOBA CALLS 
2¢ 00 6E 1 8 8$: Move 
ro AE 21D BE gO novW 
BS a OA 9A MOVAB 
06 A F 9%: «BBS 
Ab Hi 81582 
06 Ab 40 BF BB OOOAA 108: BIS 
16 Ab 2 B1SB 


41 VAX=11 $-32 V4.0-742 
Dts SK$V mt TER: CDUMP.SRCJDUMP.B32;1 
DUMPSGL_IRAB 

SYSSOPEN Oe ASSIGN 

SYSSCONNECT, SYSS$GETCHN 


R4, (P- R6 


r8 
sot Fuss. RI 


Save R2,R R7,R8B,RI,R10,R11 


DUNES BEV yOUA R11 
LIBSS R 


DUMP 
=168(S 


RG, dune $GL_IFAB 
(R6), DUMPSGL_INAM 
#67, 23 


64 (R6) 


we 
- 
e 
a 
a~n~nwD 
Ore NO 
2 San 
uw 
- 
c 
> 
a 
nue 


1B$STOP 

53 \s SUMP SL _FLAGS#1 
R?), 4$ 

wid, a 7$ 


we. DUMPSGL-FLAGS, és” 
rif 


#1, LIBSSTOP 
MP GL_INAM, RO 
(RO), #327 


ate DEVSPEC 
. LIBSSTOP 


: 8, (R7), 8$ 
mii SGL_FLAGS, 8 


- LIBSST 
10, (SP), 0, #44, SRMS_PTR 


#11293, SRMS_PTR 
1x48 $6(R6)~ 
 BURPSEL _FLAGS*+1, 10$ 
4° 
4 


’ (R6) 
#64, 4(R6) 
i. 23(Re) 


Page (fi 


i 
} 


) 


; 0596 


oo Oo 
oOo 

m Mr 
oor wv 


D 12 | 
D AIN 16-Sep-1984 01:26: VAX-11 Bliss-32 V4.0-742 Page 28 0 
M500 13-8001 382 93:36:41 DISKSVMSMASTER: CDUMP. SRCJDUMP.B32; 1 ° (8 V 
25 03 a7 cs B3 11$: Las 3(R7), 12$ : 06 ; 
000000006 99 gi FB B CALLS a, YSSOPEN : ; 
1 0 5 C BLES =6oR : | F 
7E 08 As D 000¢ MOVQ 8(R6), =(SP) : 0695 ; 
DD 000C PUSHL + 0694 ; 
00000000" 8F DD 000C9 PUSHL  #<<<DUMP$_FACILITY@16>+4248>+2> + 0693 : 
00000000v EF 4 FB OOOCF CALLS #4, DUMPSFILE_ERROR : F 
24 Ag ps 0g CLAL ${R6) : 0696 ; 
01D8 31 0000 BRW $ : 069 ; 
24 A6 D4 000DC 128: CLARE 6(R6) + 0701 ; 
50 FD14.sC9s«O 6 DF MOVL DUMP SCL {NAM RO : 708 F 
0 03 A? CE £4 BLBS (R7), 13$ : 07 ; 
20 67 — €E OOE8 BBS #14, (R7), 14 + 0704 | 3 
9 67 D EC BBS #13, (R7). 14 + 0705 : 
FFSO 309 39 A0 OF 13$: MOVZBW 57(RO), DUMPS$GL_IDESC + 0708 
FF54 C9 44C« p F6 MOVL  68(RD), DUMPSGL-IDESC+4 + 0709 
7E 7C OOOFC CLRO = = (SP) + 0711 
g¢ A6 9F OOOFE PUSHAB 12(R6) : 
FF50 C9 9F 00101 PUSHAB DUMP$GL_IDESC ; 
000000006 90 4 FB 00105 CALLS #4, SYSEASSIGN F 
8 0 D 919¢ MOVL RO, ST ; 
1 EB 0010F BLB STATUS, 15$ + 0712 
58 OD 00112 PUSHL STATU : 
6A 01 FB 00114 CALLS #1, LIBSSTOP : 
OC 11 00117 BRB 15$ + 0703 
FFSO 869 03 AO 9800119 148:  MOVZBW 3(RO), DUMPSGL_IDESC : 0716 
FF54 9 04 AO 00 OO11F MOVL 4(RO), DUMPSGL~IDESC+4 + 0717 
07 01 «Ad 05 €0 00125 15$: BBS #5, DUMPSGL_FLAGS+1, 16$ ; o72t 
EC Ag OC Ab DO 0012A MOVL 12{R6), DUMP$GL_ CHANNEL : 0723 
3B (11 01 F BRB 17$ : 
0044 &8F 00 6E sen 09 2c 91 ! 16$:  MOVCS #0, (SP), #0, #68, S$RMS_PTR + 0727 
FD18 = ¢9 4401 BF B0 091 MOVW #17409, SRMS_PTR F 
FD54. C9 6 DO 0014 MOVL  R6, $RMS_PTR760 : 
FD18 §«C9 «OF 0014 PUSHAB DUM RAB : 0728 
000000006 00 gi FB 0014 CALLS #1, SYSSCONNECT ; 
17 g E 015 BLBS RO, F 
7E FD20 «C9 «7D O13 MOVQ § DUMPSGL_IRAB+8, -(SP) : 07 
6 DD 13A PUSHL R : 0733 
00000000* 8F ODD 3 PUSHL #&<<<DUMP$_FACILITY@16>+4248>+2> 3; 0732 
00000000v_ EF 4 FB 0016 CALLS #4, DUMPSFILE_ERROR : 
0148 31 0016 BRW 7 > 0735 
18 #Ag 1 dO 196 17$:  MOVL #1, DUMPS$GL_CUR_BLOCK : 0740 
a \:) 1 ce 1 MNEGL #1. DUMPSGL~MAX~BLOCK : 0741 
62 67 ¢ E1 00174 BBC #28. (R7), 21 : 143 
8 3 OA Eg 178 BLBC }8=—._s«3(RP), 198 > 074 
bE 4 8F 17¢ MOVZBW #116, DIBDESC ; O748 
04 AE 08 AE 9 1 MOVAB DIB, DIBDESC+4 3 0749 
7E 7C 001 CLRQ = = (SP) : 0750 
08 AE 9F 001 PUSHAB DIBDESC : 
3 D4 0018A CLRL = = ( SP) ; 
EC Ad DD 0018C PUSHL  DUMPSGL_CHA ; 
000000006 : FB 001 CALLS #5, SYSSGETCHN ; 
: dO 001 MOVL RO. STA us ; 
D a 1 BLBS STATUS, 18$ : O73) 
DD 0019C¢ PUSHL STATUS > 0753 
| 
| 


_—___:? eee nnn nn nk 
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DUMPSMAIN 16-56 -1984 226: X-11 ss-32 V4.0-742 Page 29 
yOaL000 1 =tep- 382 94:36:41 brs SkSV nen STER:CDUMP.SRCIDUMP.B32:1 (Bs 
7E D4 0019 CLAL ; ; 
000000006 BF DD 1A PUSHL rtf ETCHN : i 
A 3 FB 14 CALLS # : ; 
18 AD 04 OO1A9 18$:  CLRL weit tur PaLOcK + 0754 : 
1c Ad 78 AE 9} ° 1g pels DIB#1127 DUMPSGL_MAX_BLOCK ; 033 i 
20 Ad E4 AD DO 00184 19$ MOVL 1 aoe DUMPS$GL_F ILE_EFBLK : 076 i 
08 13 00189 BEQL $ + 076 i 
£8 AD 85 00188 TSTW 1xAB+20 : i 
0 18 18 BNEQ 0$ : ; 
0 Ad vd? 001C DECL § DUMPSGL_FILE ff BLK + 0765 i 
2 Ag 0 A DO 001C3 20$:  MOVL  16(R6), DUMPSGL ae HIBLK : 266 i 
0D 1 Ag 05 €0 001C BBS #5, DUMPSGL_FLAGS : 076 : 
A9 20 Ad DO 001CD MOVL DUAPSEL _FILE_EFBLK, DGMPSGL.. MAX_BLOCK + 0770 
05 69 €E 10 BLBC § DUMPSGL“FLAGS, 218 : 0771 
1c «AD 4 ag BO 1D MOVL § DUMPSGL“FILE_HIBLK, DUMPSGL_MAX_BLOCK + 0772 i 
1 Ad 95 OOIDA 218 TST 1 fe “FLAGS+1 + 0776 
12 18 001DD BGEQ  23$ : i 
50 18 Ad DO 001DF MOVL D PSGL_CUR_BLOCK, RO : 0778 i 
04 A9 3 D1 OO1E3 CMPL DUMPS$GL "START. QUAL ; 
4 1€ OO1E7 BGEGU 3 $ : i 
50 04 AY OD O1E9 MOVL $GL_START_QUAL 3 i 
18 «Ad 30 DO OO1ED 328: MOVL DUNE SGL_ cOr vatécK : 
15 03 A? £9 OO1F1 23$: LBC a (R7) : 0780 
© «(Ad 18 «=A9 «D1 001FS CMPL aumeséu” tie _BLOCK, DUMPSGL_MAX_BLOCK : 0781 i 
O& 1B OOIFA BLEGU : i 
1¢ AS DD OO1FC PUSHL § DUMPSGL_MAX_BLOCK : 0782 
01 DD OOTFF PUSHL #1 3 i 
000000006 8F DD 00 or PUSHL ADunes 2 BADSTART : ; 
A 03 FB 00207 CALLS 18s ST : : 
1 02 Ad E9 OO20A 248 BLBC DUMPSGL “FLAGS+2 26$ + 0784 i 
5 1¢ a9 DO 00 OF MOVL § DUMPSGL~MAX_BLOCK, RO : 0786 i 
08 Ag 50 D1 0021 CMPL RO, D DUP SGC “END_QUAL : : 
04 18 0 16 BLEGU 258 ; ; 
50 08 Ad D 1 MOVL D $6. END_QUAL : : 
1c =—AQ 50 DO 0021C 358 MOVL UMPS$GL—MAX 6Lock ; i 
30 02 Ad 01 Fl 0 g 6$ BBC if DURPSCL aELAGS#2, 308 : 0788 i 
01 Ag 3 TSTB $GL_FLAGS+ : 0790 : 
13 18 00228 BGEQ $ F ; 
51 04 a9 0c a9 cy 0 A ADDL3 SUMPSGL_COUNT QUAL, DUMPSGL_START_QUAL, R1 : 0793 
50 1¢ «(Ad D0 MOVL OD PSGL_MAX BLOCK, RO ; 
51 30 D CMPL =e RO, R : 
13 (1A BGTRU § eth 
14°11 BRB $ : 0792 
51 18 Ad 0c a9 cy ; 278: ADDL DUMPSGL_COUNT_QUAL, DUMPSGL_CUR_BLOCK, R1 ; 0796 
50 1c «(AG D0 4 MOVL D SGL_MAX_BLOCK, RO : 
1 30 D 49 CMPL : 
1 4C BLEQU 3 $ ; 
50 1 »D 4E 28$:  MOVL 1, RO : 
1c «(AD D $:  MOVL RO, DUMPSGL_MAX_BLOCK : 0795 
28 «AD 4 O$:  CLRL  DUMPSGL_RECORD 3 0799 
oF 01 0 £ BBS #5, D MPSEL FLAGS*+1, 32$ : 0800 
5 67 ‘ E D BBC #26, (R7), 31 : 0801 
28 OA 18 Ad 6 ¢ 61 SUBL3 #1, DUMPSGL_CUR_BL ck ggQUNPSGL RECORD : ; 
08 01 «ad 5 E 7 31$: BBC #5, DUMPSGL~FLAGS* : 080 


F 12 
PSMAIN 16-Sep-1 VAX=-11 Bliss-32 V4.0-742 
-000 12: -Sep- aati ri 9}: $¢: ¥ DISKSVMSMASTER: CDUMP. SRCJDUMP.B32;1 
FB OA 7FFF OSE 80 6 32$: MmOvW 767, DUMPSGL_BUFFER 
19 BRB 
06 67 E1 00274 33$ BBC 4 : 4$ 
BOA i AF {8 NE Gl ! ie soe ser _BUFFER 
FB OAD 0200 8F 80 0007 348: MOVW 37> DUMPSGL BUFFER 
Fe AD OF 5$:  PUSHAB soneser FFER+4 
Fa AD OOF 7 PUSHAB D Psat BUFF R 
000000006 99 F A CALLS #2, LIBSGET_VM 
D 1 OVL STATY 
0D E 94 LBS STATUS, 36$ 
DD 37 PUSHL STATUS 
D4 CLRL. = SP) 
000000006 BF DD 8 PUSHL #DUNPS NO NOVIRMER 
6A 3 F A CALLS STOP 
£D38 9 FB OAD iB AG 36$:  MOVW  DUMPSGL sSUrFER, DUMPS$GL_IRAB+32 
FD3C £9 FC OAD OD AA MOVL DUMPSGL - BUFFER*+4, DUMPSGL_IRAB+36 
0 01 D 80 MOVL 
04 0028 RET 
50 D4 00284 37$ CLRL = RO 
04 00286 RET 


3; Routine Size: 695 bytes, Routine Base: $CODE$ + 03C5 


j 
————_—s 
i 


“11 Bliss-32_V Hs 
KSVMSMASTER: bun. SRCIDUMP .B32;1 


iScSeo-1964 O1:36:4) yA 


VAX- Page 31 
SK of 3) 


3; 7 1 ROUTINE dump$ tput (output » ifab) 

f g 6 pein umpS$open_output (output_desc ab)= 

; f 5 ; Open output file 

; ? ¢ Inputs: 

3 729 i output_desc ointer to string descriptor for output file 

: f , 4 ‘tab pointer to Inout tab . ope 

: 7 MAP 

2 : 4 utput desc _: REF BBLOCK, 

3 £ 4 fab :"REF BBLO CK; 

3 f 5 4 

3 7 P0844 ¢ SFAB.INIT(fab=dunp$gl of ab. ! Initialize output FAB 
; 738 P 0845 dna=uP AE ! Default /OUTPUT type 

3; 739 P § dns=ZCHARCOUNT('.DMP'), 

P| RRBR § gemeeuetet soe 

3 op=<ofp,sqo 

3 ee P 0869 ratecr . 

Py = 

PR oe Bh 

; 746 P 085 INIT (nam=dump$gl_onam, ! Initialize output NAM block 
3 747 P 0854 alte. ifabl fast enand, i . 
; 748 P 0855 rss=nam$c _maxrss, 

; 749 P pe28 A eotem gh orss, 

3 £30 p Bae eeonoen ¢ ee 

3 esa= orss 

Bl Re a5 

: 754 P 0861 SRAB_INIT(rab=dump$gl_orab, ! Initialize output RAB 
: 755 p866 Tab=dump$gl_ofab); me 

: eg Ha 

3 £38 O83 ' Create the output file and connect record stream. 

3 re 0. if ;,dumpsol_ flagsCdump$v_printer) ! If /PRINTER requested, 
: 76 9 BEGIN 

3; 6 0 dump$gl_ofab{fab$v_s sp L = true; ! Spool Listing 

: ree 7 duap$gl- ofablfab$v_dit] = true; ! Delete after printing 
; 7 ELSE 

; re) if ,GuapSol_flagsldunpSv_output) ! If /OUTPUT requested 

: 769 BEGIN 

; aa THE descCdsc$w_length]) NEQ 0 ! If /OUTPUT has a value 
: 77 4 BEG! 

3; 677 4 oes PY ofab(fab$l_fna] = .output_desc{dsc$a_ potnterd: 

: oe ; duap$gl ofablfab$b_fns] = .output_descldsc$w_ Rengthi: 

: 77 END 

3; 77 ELSE 

; 778 BEGIN ! Else, default to SYSSOUTPUT 


H 12 

PSMAIN 16 Sep- VAX-11 B Liss seRe V4.0-742 P 
va 800 1ereeah BR Pb:Sigt Pe BAA StER hae she apume.a321 2% «3s 

7 dump$gl_ofab[f {ne PLIT BYTE(*SYSSOUTPUT'); 

f , § duno$9~ ofabLf fns [; PEHARCOU weg SYSSOUTPUT'): 

rag 

7 9 IF NOT SCREATE( fab $ fab) 

Pee a tren EATE( fab=dump$gl_ofab 

7 9 BEGIN 

7 94 soe Wh -errort 

re usey“t6 + shr$_openout + sts$k_error, 

790 f i 

90 ae TuRCemee a ote ett ab$l_stsJ, .dump$gl_ofablfab$l_stvJ); 

3g END; 


~ 


BVLSSEIEA 


794 F NOT SCONNECT( $ ) 
Oe i tren wea ECT(rab=dump$gl_orab 
rs 904 dump$file_error ( 
oS 905 Guan? (ee te ls + shr$_openout + sts$k_error, 
uM 
601 Bs RETURN duno Sgt gt. “orabCrab$t sts], .dump$gl_orabCrab$l_stvJ); 
0¢ 90 END; 
80 919 
bs 312 dump$gl_odesc(dsc$w_length] = .dump$gl Cnam$b 25 
odgescLasc en = .GuM onamina rs 
Hi 318 sted ire Steer he “setnter) = one gl_ oneacnanst. rsa 
807 914 
808 0915 
-PSECT S$PLITS,NOWRT,NOEXE,2 
50 4D 44 0158 P.ABQ: .ASCII \.DMP\ : 
54 55 SO 54 55 4F 24 33 59 § tet P.ABR: .ASCII \SYSSOUTPUT\ : 
SRMS_PTR= DUMPSGL_OF AB 
SRMS-PTR= DUMP$GL—ONAM 
SRMS~PTR= DUMPS$GL—-ORAB 
.EXTRN SYSSCREATE ~ 
-PSECT SCODES,NOWRT,2 
007C 00000 DUMPSOPEN_OUTPUT: 
-@ORD Save R2 RS, R4,R5,R6 3; 0829 
56 00000000' EF 3 HOVAB SRMS_PTR, ; 
0050 «BF 00 6E 9 movcsS 40, tsp): fe #80, SRMS_PTR ; 0850 
F B 1 mOVw of RMS_PTR : 
4 < F 16 MOVL iat, SAMS _ PTR+4 ; 
6 OA 1 1 MOVB A ab (Ree 3 
1E OA F MOV 14. $RAS_PTR+30 ; 
A A6 SE MOVAB DUMPSGE ONAM ska _PTR#+40 ; 
A ssa ' ft p MOVAB OP agg dis BrRe4 ; 
A 4 MOVE #4, -SAMS_PTR+5 ; 


12 
DUMPSMAIN 16-5 “1 26: VAX=11 Bliss-32 V4.0-742 P 3 
ve rae SRe Ph:e et PN east eRe Nae Cnc spume.es2:1 2% «as 
0060 8F 00 6E 00 2c ; MOVCS #0, (SP), #0, #96, SRMS_PTR : 0858 
A 6003 ef 0 0004 MOVW #24578, SRMS_PTR : 
A 1 BE 0004 MNEGR # skis PTR32 : 
A 0080 c6 E 0004 MOVAB Dulp GL_ORSS, SRMS_PTR+4 : 
A A E ; MNEGR # RNS PTR+ : 
rie 00 C6 MOVAB DUMPSGL_ORSS, SRMS_PTR+12 : 
5 ° AC D MOVL 1FAB RO : 
60 Ab A p MOVL RO) SRMS_PTR+16 : 
0044 8F 00 6E ; 09 C 3 MOVCS #0, (SP), #07 #68, SRMS_PTR + 0862 
Bc OA 4404 oF BO $F MOVW #17409, SRMS_PTR : 
FB OA 4 : MOVAB DUMP Gi_OFAB; $RMS_PTR+60 : 
07 0261 ¢ 4 ; 078 BBC #4, DUMP GL FLAGS+T, 1$ + 0867 
05 Ab AO 8F 3 43 1 S82 #160, DUMPSGL_OF AB+5 : 4) 
13 0261 6 3 €1 0085 1$: BBC 3 DUMPSGL_FLAGS+1, 2$ + 0874 
0 04 i 5 088 Mov QuFPUT DESC; RO ; 0877 
$ ; 9 91 BEQL «638 : 
aC Ab 04 Ad 06 0 93 MOVL  4(RO), DUMPSGL_OFAB+44 : 0880 
4 Ab 60 70 0098 MOVE (RO), DUMPSGL_OFAB+52 ; 0881 
2c A6 00000000° €F 3 S09E 2$ MOVAB P.ABR, DUMPSGL_OFAB+44 + 0886 
Peo RRR BR Ot eer ie 
000000006 00 oN FB OAC CALLS #1, SYSSCREATE : 
06 0 E 0B BLES RO, 4$ ; 
7E 08 AG £D 086 nova DUMPSGL _OFAB+8, -(SP) ; 9897 
BC Ab OF O00BC 4$: PUSHAB DUMPS$GL_ORAB + 0901 
000000006 00 gi re BF CALLS i, SYSSCONNECT ; 
7E C4 Ab 5 0 £§ MOVQ § DUMPS$GL_ORAB+8, -(SP) : 0907 
56 DD 000CD 5$ PUSHL R + 0904 
00000000" BF DD OO0CE PUSHL #<<<DUMP$_FACILITY@16>+4256>+2> + 0905 
00000000v EF 04 Fe 9005 CALLS a4, DUMPSFILE_ERROR ae 
01B8 C6 53 M6 9 ODE 6$ MOVZBW DUMPSGL_ONAM+3, DUMPSGL_ODESC : O31 
01BC C6 4 Ab 09 ed MOVE p SGLTONAN+S, DUMPS$GL ~ODESC +4 ; 0915 
4 OOOED RET . : 
50 D4 aoe 7$: CLRL = RO > 0915 
4 O00F RET : 


3; Routine Size: 241 bytes, Routine Base: S$CODE$ + 067C 


12 
1b-Se0-1984 Mee ge Ted UmeHASTERs COURS SRe2pUMP.032:1 29° 105 


bufdesc : REF BBLOCK; 


LOCA 
Yosb : VECTORE4,WORD), 
status; 


it St 2 8 


—OOONOVLS WN“ OOONOUS WN 


iV aor -dump$gl_flagsCdump$v_records) ! If reading with Q10 


BEGIN 
en -BBLOCKCdump$gl_ifabCfab$l_dev], dev$v_rnd] 


BEGIN ! One QI10 = one block 
DECR i FROM 1 TO 0 DO 
BEGIN 


| 


FH 4 

3 4 

: + ate atetaumpg channel 

3 =.dum channe 

3 3 P FUNC=(IF “BELOCKEGunp$gl_itabC fabs dev’. dev$v_for) 

3 83 P THEN jo$_readlblL 

; 834 P ELSE io$_readvblk), 

3; 835 P 10SB=iosb, 

3 3 P Pl=.dump$gl_buffer(dsc$a_pointer], 

3 8s P2=.dum Sql buf fer dsc$w fengehd) 

; 838 bufdescl(dscSw_length] = .iosbl1]; ! Bytes actually read 

3; 839 8 bufdescldsc$a_pointer] = -dunp$ql_bufferLdscSa_pointerd; 

3 ay Bae8 If .status THEN status = .iosb(0J; 

> 84 094 IF .BBLOCK $gl_ifabCfab$i_dev], dev$v_trm] ! Handle *2 
3 ark rk AND erie tle tu ~ ” ! from terminal 
3 6844 0950 THEN 

; oe? B33) status = ss$_endoffile; 

; Be 338 IF .status EQL ss$_endoffile ! Print message if end of file 
; 848 954 AND .BBLOCKEdump$gl_ifab{fab$l_dev], dev$v_saqd 

; 849 Ree AND .BBLOCKLdump$gl_ifablfab$l_devJ, dev$v_for 

$ $20 09 $ THEN 

3 51 957 6 BEGIN 

} 26 43 6 dump$blank_Line(); 

3 3 95 ° ¢ output _getnsg (dumps endoffile, %8'0001'); 

3 2¢ 369 F EQ HEN EXITLOOP; 

3 2$ ¢ ; LSE 

3; 8 96 EXITLOOP; 

3 28 4 END; 

3; 85 5 $ END 

: ELSE 

: 1 4 BEGIN 

3 § ? IF .dump$gl_cur_block GTRU .dump$gl_max_block 

: 4 RETURN ss$_endoffile; ! Return EOF status 
: 5 p 4 status = $0]0W 

3 p 4 CHAN=.dump$gl_channel, 


DUMPSMAIN 16 Sep-1 AX-11 8B Aiee =32 vV4.0-742 Page 35 
ve -3t0-1 94 9}: $f: 4h Sisk $vNGH TER: CDUMP. SRCIDUMP .B32;1 ’ (133 
; UNC= L ue gl_ifablfa ev ev$v_for 
e? . 4 $ F ms ue i OcKte $gl_ifabCfab$t_devJ, dev$v_for] 
; e3 P0975 4 ELSE jos. readvbtk), 
3 » P 0976 4 at osb. 
3 yp gl_bufferldsc$a_pointer], 
f 4 4 ? . l_bufferldsc$ i ] 
3 4 979 4 2 ota cur_block); 
3 874 980 4 IF = us THEN status =,; = josbl0); 
3 ufdesc(dsc$w_ eng 
75 981 4 bufd dsc$w_length 
3; «87 9 § 4 bufdescldsc$a_pointer] A, a east but terlascSa app interd; 
3; 87 9 4 exon cur_block = .dump$gl_cur_Block + 1; Advance pointer 
; 9 388 IF _NOT 
; 88 9 § AND etihe 2 NEQ ss$_ onde ttile 
; 881 4 AND .status NEQ ss$_ “part ty 
3 HY 988 AND .status NEQ ss$_ datacheck 
3 989 AND .status NEQ ss$ #7 doftape 
3 See 1444 we ,etetus NEQ ss$_illblknum 
3 Hy 0394 4 BEGIN 
; 88 0995 4 SIGNAL ( 
3; 888 0994 4 dump$_facility*16 + shr$_readerr + sts$k_error, 
3 4 34 2 5 dumpSe gl. desc, 
3 Ss 
; 891 307 4 status = ss$. endoffile; 
8 few 
; Bos 1909 FUSE EGIN 
: 298 108 status = sett Crebeduneset irab ! Get record 
; 89 100 bufdesc(dsc$w_length] —- ai irabCrab$w_rsz); 
; 898 1004 bufdescldsc$a_ “pointer]. = .dump$gl_irabCrab$T_ roti; 
3 345 1005 IF -Status 
: 901 1909 & BEGIN 
; 308 1008 4 IF .status NEQ rms$_eof 
; 90 1009 4 THEN 
; 904 1 19 4 SIGNAL ( 
; 905 1011 4 quees.t toc }tityo 06 + shr$_readerr + sts$k_error, 
3 one 1 \¢ 4 d unp$gt _idesc 
; 90 10135 4 . dum p$gl_irab ab$l sts), .dump$gi_irabCrab$l_stv]); 
; 908 1014 4 status = 338° endoffile; 
; 909 1015 END; 
3 3i9 1 1 END; 
3 i 
3 318 1018 RETURN .status 
; (914 1020 END; 


~EXTRN SYSSQIOW, SYSSGET 


00F¢ $3 -ENTRY acrtstint tant R2,R3,R4,R5,R6,R7 0916 
E 
E 


MOVAB LIB$S1GNA 
MOVAB $$010W 
MOVAB DUMPSGL va bee nse, RS 


12 
DUMPSMAIN 18-5¢ -1984 01:26: VAX=-11 Bliss-32 V4.0-742 P 
VOae000 1 =300 138% 93:36:41 DISKSVMSMASTER: CDUMP. SRCJDUMP.B32; 1 age 438 
5 08 ¢ 17 SUBL2 #8, SP ; 
04 at D 1A MOVL BUF DESC R3 + 0945 
03 oS A ants 5 3 BBC DUMPSGL_FLAGS+1, 1$ + 0928 
5 FD14 D 6 1$: MOVL § DUMPSGL_IFAB, RO + 0931 
03 43° OA i tl BBC ae 6 CRO) bs F 
0081 31 BRW aS : 
54 1 00 3 MOVL #1, I + 0934 
— 7¢ CLRO 20s = ( §p) + 0943 
7E 7C 000 CLRQ = =(SP) : 
7E FC OAS. O38 A MOVZWL DUMPS$GL_BUFFER, -(SP) : 
: bp PUSHL  DUMPS$GL"BUFFER+4 : 
E 7C 0004 LRQ. = SP) : 
2 AF OF 0 4 PUSHAB 10SB : 
50 FD14. iC D0 4 MOVL  DUMPSGL_IFAB, RO : 
04 43 AO € 004A BLBC 67(RO),~4$ : 
1 Dp 004 PUSHL #3 : 
; 1 0005 BRB 5$ : 
DD 005 4$ PUSHL #49 : 
FO «AS «OOD 0 54 5$ PUSHL  DUMPS$GL_CHANNEL ; 
7E D4 00057 CLRL. = (SP) : 
$6 o¢ FB 00059 CALLS #12, SYS$Q10W ; 
dO 0005¢ MOVL RO, STAT : 
04 BC 02 AE B 0005 MOVW  1088+2, aBUFDESC + 0944 
04 As ¢ DO 00064 MOVL § DUMPSGL_BUFFER+4, 4(R3) + 0945 
03 2 £9 00068 BLBC STATUS, ~6$ + 0946 
32 6F C 00068 MOVZWL 10SB, STATUS : 
5 FD14.sCS5—s«éOO OO6E 6$ MOVL DUMPSGL FAB RO + 0948 
0B 40 AO 02 €1 0007 BBC #2, 64(RO), ?$ ; 
1A 04 AE 81 00078 CMPW Jose+4, #26 + 0949 
12 0007C¢ BNEQ F 
52 0870 8F 3¢ O07E MOVZWL #2160, STATUS : 0951 
00000870 &F p] 0083 7$: cMPL STATUS, #2160 + 0953 
68 40 aod 0 if 008C BBC ii 64(RO) 13$ ; 0954 
67 43 Ad €E9 00091 BLBC 4=._«a@ (ROD, 138 : 0955 
000000006 00 00 Fe 0095 cA Ls #0, DUMPSBLANK_LINE ; 0938 
000000006 8F DD 5 9E PUSHL #DUMP$_ENDOFFILE : 
000000006 00 2 i M CALLS #2, DUMPSOUTPUT_GETMSG ~~ 
40 1 AD BEQL 3$ F 
84 54 F4 OOOAF SOBGEQ 3$ > 0934 
48 11 Be BRB > 0931 
20 AS 1¢ «6A5S) «(D1 00084 8$: CMPL p $GL_CUR_BLOCK, DUMPSGL_MAX_BLOCK : 0968 
06 1B 00089 BLEGU ; 
50 0870 «8F i BB ROVZUL #2160, RO : 0970 
7E ¢ C1 9$ CLRQ = =( SP) : 0979 
43 D ¢ CLRL —-_ = (SP) ; 
1c OA po ¢ PUSHL  DUMPS$GL_CUR_BLOCK : 
7E 0200 BF 3¢ 000C MOVZWL #512, -TSP ; 
$5 Bd 900¢D PUSHL DUMPSGL_BUFFER*4 ; 
E 7C OOOCE CLRQ.  =(SP) : 
| 20 AE OF 1 PUSHAB 1988 : 
04 AO E9 000D4 LBC (RO), 10$ ; 
21 DD 00008 PUSHL #3 ; 


M12 
MPSMAIN 16-Sep-1984 01:26: VAX=-11 Bliss-32 V4.0-742 Pa 7 
veh 1 ~3007 1383 93:36:41 DISKSVMSMASTER: COUMP.SRCJDUMP.B32;1 9 435 
9 11 DA : 
DD O00DC 108: PUSHL #4 : 
FO AS DD OOODE 11$:  PUSHL DUMPSGL_CHANNEL : 
7E D4 OO0E CLRL. = (SP) : 
F E CALLS #12, SYS$Q10W ; 
6 08 E RO seAtys : 
9 : E BL at STATUS, 12$ + 0980 
GE EC MOVZWL 1osg. STATUS : 
04 8 0200 8F B EF 12$:  MOVW #512. aBUFD + 0981 
5 ae 65 0D F5 MOVL § DUMPS$GL_BUFFER+4, 4(R3) + 098 
1c «(AS OD F9 INCL UMPSGL-¢ : 098 
7F E FC 13$: ®BLBS STATUS, + 0985 
00000870 = &F b OOF CPL STATUS, #2160 ; 0986 
000001F4  8F § 04 108 CPL STATUS, #500 3 0987 
0000005C 8F $3 } +t CPL STATUS, #92 ; 0988 
00000878 8F : 4 Oita CPL STATUS, #2168 : 0939 
000000Dc ~—s BF 4 3 CPL STATUS, #220 ; 0990 
2 pd 12¢ PUSHL STATUS : 0996 
FF54 cs oF oie PUSHAB DUMPSGL _IDESC ; 0993 
00000000* 8F DD 001 PUSHL  #<<<DUMP$_FACILITY@16>+4272>+2> + 0994 
67 4 Fe 6 13A CALLS #4, LIBSSIGNAL F 
A 11 0013D BRB 1 : 0997 
FDIC C5 9F OO13F 14$:  PUSHAB DUMPSGL_IRAB : 1002 
snaggane: OR Abie | GRULS atGe 7 
04 BC FD3E 28 B0 a160 MOVW  § DUMPSGL_IRAB+34, @BUFDESC + 1003 
04 A FD44 c3 D0 015 MOVL § DUMPSGL-IRAB+40, 4(R3) + 1004 
g2 : E 139 BLBS | STATUS, 16$ + 1005 
0001827A BF 3¢ D4 ie CPL STATUS, #98938 ; 1008 
7E ED24 CS 7D 0016 MOVG = DUMPSGL_IRAB+8, -(SP) : 1013 
FF54 > oF 16h PUSHAB DUMPSGL ~IDESC ; 1010 
00000000" 8F ODD 0195 PUSHL #<<<DUMP$_FACILITY@16>+4272>+2> : 1011 
67 5 FB 176 CALLS #5 BSSTGNAL 3 
38 0870 8F 3C 00179 15$: § MOVZWL #2160, STATUS + 1014 
5 2 DO OO17E 16$: MOV. STATUS, RO > 1019 
04 00181 > 1020 


3; Routine Size: 386 bytes, Routine Base: S$CODE$ + 076D 


pa 


N 12 

16-Sep-1984 01:26: VAX-11 Bliss-32 V4.0-742 2 

12-8087} 382 93:36:41 DISKSVMSMASTER: CDOUMP.SRCIDUMP.B32;1 age 478 
GLOBAL ROUTINE dump$write(recdesc): NOVALUE= 
BEGIN 
i 
! 
! 
! 
! 
! 


——— 
— 


Write a record to the output file 


recdesc pointer to string descriptor for record 


MAP 
recdesc : REF BBLOCK; 


dump$gl_orab(rab$w_rs2z) = sPocdesch decdu. length]; 
Gump $9 orablrab$l_rbf] = .recdesc dsc$a_pointerd; 
IF NOT SPUT(rab=dump$gl_orab) 


=000 
, 
5 
; 
5 
; 


3 
3 N 
3 3 SIGNAL ( 
3 3 dump$_facility*16 + shr$_writeerr + sts$k_severe, 
3 4 we dump$gl odesc 
3 4 -dump$gl_orabCrab$l_sts), .dump$gl_orabCrab$l_stvJ); 
3 4 END; 
eEXTRN SYSS$PUT 
0004 00000 eENTRY DUMPSWRITE, Save R : 1021 
52 00000000" EF 4 44 MOVAB DUMPSGL_ORAB+34, R : 
5 04 AC DO 0000 MOVL 34 pelt R : 1034 
6 60 80 0000D MOVW (RO), DUMPS$GL_ORAB+34 3 
06 A 04 Ap BO 0010 MOVL  4(ROS, DUMPSGC_ORAB+40 > 1035 
DE A2 9F 0001 PUSHAB DUMPSGL ORAB : 1036 
000000006 99 9} 44 0018 CALLS #1, SYSSPUT 3 
1 0 3 001F BLBS RO, 3 
7E E6 as D 000 : MOVQ DUMPSGL_ORAB+8, -(SP) : 1041 
O1IDA C2 9F 000 PUSHAB DUMPS$GL_ODESC ; 1038 
1 DD 0002A PUSHL #1 : 
00000000* 8F dD 000 f PUSHL &<<<DUMP$_FACILITY@16>+4304>+4> 3; 1039 
000000066 00 5 FB 000 CALLS #5, LIBSSTGNAL 3 
04 00039 1$: RET 3 1042 


WOODOODODOODOODOODOODOOODOODOO0OO0ON0O 
a a a a a a a dd dd 
RO OWODNOUES WN ("OO ONOULS WN 


; Routine Size: 58 bytes, Routine Base: SCODE$ + O8EF 


ST SSS SSS 


Se Se Ge Ge Ge Se Ge Ge Se Ge Ge Fe Se Ge ee Be Se Ge Ge Se Ge Se Se Ge Se Sse Ge Se Ge Ge Ge Ge Ge Ge Se Se Se Sse Se Se Se Gees 


v0u~000 Fata 72:39:35 DISKSUMSMASTERsCDUAP.SRCIOUNP.032;1 "°° 13) 


39 1043 ROUTINE dump$close_input (fab): NOVALUE= 

40 1044 BEGIN 
941 1045 ! 
ars 1 rk ' Close the input file 
94 104 ! 
944 1308 ! Inputs: 
945 104 ! 
946 1050 ! fab Address of fab 
947 1 2) ! 
948 10 ¢ MAP 
949 105 fab : REF BBLOCK; 
ge0 1920 LOCAL 
951 1055 status; 
326 1928 
95 105 
954 1058 IF .dump$gl_flagsCdump$v_records) ! If RMS dump 
955 1059 THEN 
956 1060 BEGIN 
957 1061 4 IF NOT $CLOSE( fab=. fab) !' Close fab 
958 1996 
959 106 SIGNAL ( 
960 1064 dumps Mb fad es May + shr$_closein + sts$k_error, 
961 1065 Sl ides 
962 1066 “gant ts b$l “sti, .fabCfab$l_stv)); 
96 1067 END 
964 1068 ELSE 
965 1069 BEGIN 
966 1070 status = te kaa aie channel); ! Else deassign channel 
967 1071 IF NOT .status 
968 176 HEN 
969 107 SIGNAL ( ; 
970 1074 dump$_facility*16 + shr$_closein + sts$k_error, 
971 1075 . dump$gl_idesc, 
97 1078 Status); 
97 107 END; 
974 1078 
975 1079 
976 1080 ! Free input buffer. 
977 1081 ! 
978 1086 IF .dump$gl_bufferldsc$a_pointer] NEQ 0 

979 108 THEN 
oat ORE fe Lib$free_vm(dump$gl_bufferldsc$w_length], dump$gl_bufferldsc$a_pointer]); 


eEXTRN SYSSCLOSE, SYSSDASSGN 


MP NPUT: 
001¢ 00000 DUMPSCLOSE.INPU ; 1043 | 


jemi ig : 
23 0081 of « 5 16 Rov, te ast, sFiaset, 1$ 1938 
commen pS: yom : 


16-50 $ep-1984 VAX-11 Bliss-32 V4.0-742 Page 40) DI 
1 =300 138% 9}: $¢: Hy DISKSVMSMASTER:CDUMP.SRCIDUMP.B32;1 9° 43) 
7E 08 Ag 7D 2 6 mova 8(R2), -(SP) : 106 
DD A SHL  R + 106 
1 00 000eC PUSHL #1 : 
00000000" 8F ODD )2E PUSHL #&<<<DUMPS_FACILITY@16>+4176>+2> : 1064 
4 8 re 4 CALLS #5, LIBSSTGNAL : 
p 1 7 BRB + 1058 
009¢ DD 9 1$: PUSHL  DUMPS$GL_CHANNEL + 1070 
000000006 00 1 FB 00 CALLS #1, SYSSDASSGN ; 
F 0 € 44 BLBS = STATUS, + 1071 
9 D 47 PUSHL F 1076 
DD 00049 PUSHL + 107 
1 DD 00048 PUSHL #1 ; 
00000000" 8F ODD 4p PUSHL #<<<DUMP$_FACILITY@16>+4176>+2> + 1074 
4 4 F 909 CALLS #4, : BSSIGN : 
OOAC c3 p 0046 2$: ist iP GL_BUFFER+4 + 1082 
OOAC C3 9F 005¢ PUSHAB DUMPSGL -BUFFER*4 + 1084 
O0OAS C3 9F 0006 PUSHAB D MPS$GL~BUFFER F 
000000006 00 02 FB 00064 CALLS MeO CBSFREE _VvM ; 
04 00068 3$: RET + 1085 


; Routine Size: 108 bytes, Routine Base: S$CODE$S + 0929 


dD 13 
DUMPSMAIN 16-Sep-1984 01:26: VAX-11 Bliss-32 V4.0-742 41 
ive tt et oe ts PaRS e Ge t  t oP 
; 983 1 1 ROUTINE dump$close_output: NOVALUE= 
: 3B : BEGIN 4 Te 
: 386 } 5 Close the output file 
: 988 1091 i Inputs: 
: 350 eee § | 
: 991 9% ifn NOT SCLOSE( fab=dump$gl_ofab) 
: 398 1996 NSIGNA L¢ 
5 B3e 193f dumps od ight ty + shr$_closeout + sts$k_error, 
: 996 1099 .dump$ Ly fabs — 
: 338 1980 1 END: ump the ° ooees ab$l sts], .dump$gl_ofabCfab$l_stvJ); 
0004 00000 DUMPSCLOSE OUTPUT: — cies 
§2 00000000' EE 9E 00002 HOVAB -DUMPSGL _OFAB, R2 : 
2 DD 00009 PUSHL R + 1094 
000000006 00 gi FB 000 CALLS #1, SYSS$CLOSE : 
17 0 0001 BLBS RO, 1$ : 
7E 08 A2 7D 0001 MOVO = DUMPSGL -OF AB*8, -(SP) : 1099 
01B8 C2 9F 00019 PUSHAB DUMP $GL-ODESC + 1096 
oi DD 0001D PUSHL #1 : 
00000000* 8F DD 0001F PUSHL  #<<<DUMPS FACILITYA16>+4184>+2> + 1097 
000000006 00 0S FB 00025 CALLS #5, LIBSSTGNA : 
04 0002C 1$: RET : 1100 


3; Routine Size: 45 bytes, Routine Base: SCODE$ + 0995 
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-EXTRN SYSSTRNLOG, SYSSGETDEV 


13 | 
DUMPSMAIN 18-56 1984 01:26: VAX-11 Bliss-32 V4.0-742 Page 42 D 
yout000 1 ~ep-19 4 95:59:31 DISKSVMSMASTER: CDUMP.SRCIDUMP.B32;1 ’ (14) Vv 
3 1101 1 ROUTINE dump$Llist_width( fab): NOVALUE= : 
11ers Mes 
31 : 1104 @ | Determine the width of the Listing Line | : 
; 100 1105 : FAB is the fab of the open file, width returned in dump$gl_width, ; 
3 O08 13 : ; and dump$gl_outdesc set up as string descriptor for output buffer : 
; 1006 1108 MAP 
3 100 110 fab : REF BBLOCK; ; 
> 1008 1110 BIND : 
$ 108 144) vera = .fabCfab$l_nam] : BBLOCK; : 
; 1011 1118 devnamdesc : BBLOCKCdsc$c_s_bin], : 
3 ISt¢ 1114 devnambuf : VECTORCnam$c_maxrss, BYTE), : 
; 101 1115 devnambufdesc : BBLOCK{dsc$c_s_bin], 3 
: 1014 1138 devinfobuf : BBLOCK gibsk Length; : 
: + OF it wee ore : BBLOCKEdsc$c_s_bind; : 
; Hae 4 113? chiescape = %0'033'; ! ASCII <ESC> : 
: 1019 1121 ; 
3 130 i § dump$gl_width = dump$c_deflisiz; ! Assume default : 
; 1032 1124 , alone a med So ointer) = .namCnam$l_dev); 3 
3 106 1125 devnamdescldsc$w_length] = : 
3; 1024 1126 CHSFIND_CH(.namCnam$b_dev], .namCnam$l_dev], %C‘:") 3 
; 1025 1127 = .namCnam$l_devJ; $ 
3 1026 1128 devnambufdesc(dsc$w_length] = nam$c_maxrss; : 
3; 1027 1129 devnambufdescldsc$a_pointer] = devnambuf; : 
: 1028 1130 age eh ate, Page ape RSLLEN=devnambufdesc, RSLBUF=devnambufdesc); ; 
‘ ep 1" 1 if _.oownenbulls EQL ch_escape ! If process permanent file : 
> 1031 1138 BEGIN ; 
3 1038 1134 govnenbutdvechdactu. Lengthy = -Gevncnbuldesctdacdy Length - 4; : 
3 er i 2 devnambufdescldsc$a_pointer] = .devnambufdescldsc$a_pointer] + 4; : 
; 1035 1137 . ; 
3 1938 1138 
; Ht 4 HF 1 Do a SGETDEV to get the width. 
3 1039 1141 devinfodesc dsc$w_length) = dibSk_length; ! Set up descriptor for S$GETDEV 
3 igo 1166 devinfodesc(dsc$a_pointer] = devinfobuf; 
3 1041 114 IF SGETDEV(DEVNAM=devnambufdesc, SCOBUF=devinfodesc) 
3 1986 1144 THEN 
3 Hrd 1102 dump$gl_width = MINU(.devinfobufCdib$Sw_devbufsiz], dump$c_maxlisiz); 
3 1045 1149 
3 H 1133 : Set up output buffer descriptor. 
: 1048 1150 dump$gl_outdesc[dsc$w_length) = .dump$gl_width; 
3; 1049 1184 pres teens red PH ret Hee = duap$eb-outbu : ‘ 
3; 1050 1152 END; ! Of dump$list_width 


3; Routine Size: 158 bytes, Routine Base: S$CODES + 09C2 


F 13 
16-Sep-1984 01:26: VAX-11 Bliss-32 V4.0-742 Page 43 
1 =300 138i 9:36:48 DISKSVMSMASTER:CDUMP.SRCIDUMP.B32:1 9 (14) 
000¢ 00000 DUMPSLIST WIDTH: aa on 
e ] ° P 
3 00000090" EF 3 MOVAB DUMPSGL WIDTH, R3 : 
FE74 = CE MOVAB =396(SPY, SP : 
4 Ac D MOVL FAB, RO + 1111 
8 A p 1 HOVE 40(R0), R? : 
6 8F 9A 0001 MOVZBL #80, DUMPSGL_WIDTH + 1122 
a 0 gs 
44 B82 3 i A ; Loc #38. Rb, a68(R2) : 
¢ 04 6 A CLRL ; 
FB OAD 51 44 A2 A 16 SUBW3  68(R2), 81, DEVNAMDESC + 1127 
7c OAE FF «BF (9B 00 MOVZBW #255, DEVNAMBUFDESC + 1128 
0086 CE 0084 ce 3 00 NOVAB DEVNAMBUF, DEVNAMBUFDESC+4 F 11¢9 
7E pA 8045 CLRL -(SP) : 
088 CE 9F 0004 PUSHAB DEVNAMBUFDESC : 
08¢ CE 9F 00046 PUSHAB DEVNAMBUF DESC : 
F8 AD OF QOO4A PUSHAB DEVNAMDES F 
000000006 00 06 FB 00040 CALLS #6, SVSSTRNLOG ; 
18 0084 ce 4 0094 CPS VNAMBUF , + 1131 
7 «OA be iB 0048 SUBW2 #4, DEVNAMBUFDESC + 1134 
0080 CE 4 CO 0005F ADDL2 #4. DEVNAMBUFDESC+4 > 1135 
6E 74 8F 9B 0064 2$ MOVZBW #116, DEVINFODESC + 1141 
04 AE 08 AE 9E 00068 MOVAB DEVINFOBUF, DEVINFODESC+4 : 1148 
E pp 0006D PUSHL SP : 114 
—E 7C O06F CLRQ. = SP) : 
7E D4 00071 CLRL = = (SP) : 
008c CE OF 9073 PUSHAB DEVNAMBUF DESC ; 
000000006 09 93 FB 9007 CALLS a5, SYSSGETDEV : 
50 OE AE ee 0081 MOVZWL DEVINE OBUF +6, RO + 1145 
men a ee : 
59 84 8F 9A 0008C MOVZBL #132, RO ; 
& 50 D0 9090 3$: OVL RO, DUMPSGL_WIDTH : 
Fe OA 63 BO 00093 4$: MOVW  DUMPSGL_WIDTH, DUMPSGL_OUTDESC : 1150 
FBO FF70 C3 9E 00097 MOVAB DUMPSAB-OUTBUF, DUMPSGC_OUTDESC+4 : 1151 
04 0009D RET > 1152 
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1 ROUT Ane dump$file_error(message,fab,sts,stv): NOVALUE= 


1e4 
i FUNCTIONAL DESCRIPTION: 


This routine signals an error for a file. 
Inputs: 


Message 
Address of the fab 
STS a 


nd STV values 


i 

i 

i 

i 

i message 
i fab 

x sts, stv 
ie 


P 
fab : REF BBLOCK; 

BIND 

aoa = .fabCfab$l_nam] : BBLOCK; 
filedesc : BBLOCKCdsc$c_s_bin]; 


CHSFILL(O, dsc$c_s_bln, filedesc); 


IF_.namCnam$b_rsl] NEQ 0 ! If resultant name present 
filedesctdscty. Length] _= .namCnam$b_rslJ; 
tiledesc dsc$a_pointer] = .nam(nam$l_rsaJ; 
it 34 IF .namCnam$b_esl] NEQ 0 ! If expanded name present 
BEG! 
fitedesctdsctu_ Length] = .namCnam$b_esl); 
{ikedesc dsc$a_pointer] = .nam{nam$T_esa 
ELSE 
BEGIN 
filedesc(dsc$w_length] = .fab(fab$b_fns]; ! Use filename grit ine 
tiledese dsc$a_pointer) = .fablfab$l_fnad; ! if all else fails 
SIGNAL(.message, 1, filedesc, .sts, .stv); 
END; ! Of dump$file_error 


OOFC 00000 DUMPSFILE ERROR: 
QOR isp R2,R3,R4,R5,R6,R7 
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6 3 A $i MOVL tah} 
00 6E 00 2¢ MOVCS rR 0. #8, FILEDESC 
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Routine Base: S$CODE$ + 0A60 


80 bytes, 


; Routine Size: 


Se Sete Sete tee 


File 


-$255$DUA28: 
~$255$DUA28: 


NOVEC, WRT, 
NOVEC, WRT, 


N 

NOVEC MOUnT: 
NOVEC ,NOWR 
NOVEC, NOURT: 


Library Statistics 


oo------ Sym 


bols 
Total Loaded 


9776 178 
42 28 


IBJSTARLET.L32;1 
IBJTPAMAC.L 32; 1 


COMMAND QUALIFIERS 


1b-S0p =| 
~Sep-1 


Attributes 


SNOSHR, 


Percent 


1 
66 


Be 12:89:35 


“11 


me i neh s-32 V 


o=<= 
—-—> 
Wy 


~-EXTRN LIBSSIGNAL, LIBSSTOP 


LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON,NOPIC,ALIGN(2) 
LCL, REL, CON, PIC,ALIGN(1) 
LCL, REL, CON, PIC,ALIGN(1) 
LCL, REL, CON, PIC,ALIGN(1) 
LCL, REL, SO ear ientss 
LCL, REL, CON,NOPIC,ALIGN(2) 
Pages Processing 

Mapped Time 

581 00:00.8 

14 00:00.1 


BLISS/CHECK=(FIELD, INITIAL ,OPTIMIZE)/LIS=L1IS$:DUMP/0BJ=0BJ$:DUMP MSRC$:DUMP/UPDATE=(ENHS$: DUMP) 


ry us Used: 
Compilation C 


2736 ¢ 


319 pa 
omplete 


e + 1313 data bytes 


: 36. 
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